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The  purpose  of  this  thesis  is  to  provide  an  inventor)’  database  management 
system  for  a  ROK  Army  infantry  division. 

Since  1973,  the  ROK  .Army  has  significantly  improved  its  capability  in  logistics 
management  by  using  computer  systems.  However,  the  operational  level  of  command 
(the  division)  has  some  difficulties  in  meeting  higher  command  requirements  because  of 
the  unavailability  computer  hardware  and  software.  As  of  last  year,  the  computer 
hardware  was  installed  at  the  division  level.  User  friendly  software  development  has 
become  another  requirement  for  effective  use  of  this  computer  hardware.  To  help  meet 
this  objective,  this  thesis  provides  a  database  management  system  for  the  manager  who 
works  at  the  division  logistics  section,  and  for  the  Quartermaster  battalion  which  is  the 
major  unit  to  handle  material  within  the  division. 

To  meet  the  objective,  the  author  of  this  thesis  concentrated  on  writing  user 
friendly  interface  programs  within  the  current  logistics  management  system. 

By  applying  the  proposed  system,  the  Army  can  improve  one  of  its  logistics 
objective,  ie  automatic  data  processing.  This  can  contribute  to  the  logistics 
management  system  implementation  by  allowing  the  division  to  generate  more  accurate 
reports  in  less  time,  and  to  improve  inventory  management  by  shortening  the 
administrative  process.  (  ;  : ,  ,  .  \ 
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I.  INTRODUCTION 


A.  INTRODUCTION 

This  thesis  proposes  an  inventor}’  control  database  management  system  for  use  at 
the  ROK  Army  division. 

Supply  functions  are  critical  in  achievement  of  economic  operations  of  armed 
forces,  and  the  management  of  defense  resouces.  Republic  of  Korea  (ROK)  .Army 
logisticians  have  developed  better  ways  to  build  support  process.  One  improvement  is 
the  recent  computerization  of  Planning-Programming-Budgeting-Executing-Evaluating- 
System  (PPBEES)*  at  high  level  command  (above  division). 

However,  implementation  of  PPBEES  below  the  division  level  requires  a  great 
deal  of  manual  paperwork,  and  much  overtime  for  lower  level  managers. 

Fortunately,  as  of  last  year,  the  Army  divisions  have  acquired  computer 
hardware.  Still,  some  usage  difficulties  remaine  because  of  shortages  of  the  computer- 
related  personnel.  Thus  the  development  of  well  structured,  user  friendly  computer 
sj’stems  is  urgently  needed. 

This  thesis  will  introduce  a  logistics  database  system  which  will  reduce  the 
amount  of  paperwork,  decrease  order  processing  response  time  and  generate  statistics 
which  are  now  too  cumbersome  to  compute.  The  system  must  be  well  structured  and 
user  friendly  for  easy  implementation  by  novice  users. 

Therefore  this  thesis  will  deal  with  the  application  of  computer  based  routine 
transactions,  generation  of  reports,  and  analysis  of  transactions  for  the  ROK  Army 
division  logistics  management  section. 

The  software  developed  for  this  thesis  is  microcomputer  based  because  of  price 
and  availability  to  the  Korea  Army,  especially  at  the  division  level  and  below.  The 
software  performs  the  supply  distribution  function,  which  is  the  most  costly  and  labor 
consuming  phase  at  the  operational  level. 

It  handles  authorized  storage  list  (AST)  as  well  as  property  items,  to  be  defined 
at  chapter  II.  The  fi.xed  order  quantity  with  probabilistic  demand  model  will  be 
applied  for  inventory  control. 

*  PPBEES  is  a  newly  developed  system  for  the  national  resource  management  in 
Korea.  The  objective  is  to  accomplish  the  economic  management  of  the  .Army  by 
evaluation  of  managers  with  budget  expended  and  the  designated  material  readiness 
condition. 


B.  THESIS  ORGANIZATION 

The  thesis  is  divided  into  the  following  sections:  As  the  background  of  the  thesis, 
the  second  chapter  covers  the  current  ROK  Army  logistics  structure,  supply  functions, 
and  current  computers  in  the  Korean  .Army. 

The  third  chapter  describes  the  structure  and  the  capability  of  the  proposed 
system  and  its  benefits. 

Future  research  needs  will  be  stated  in  the  concluding  chapter.  Appendices 
include  statistical  considerations  for  inventory  control  measures  in  Appendix  A.  data 
structure  of  the  proposed  system  in  Appendix  B,  the  proposed  system  structure  in 
.Appendix  C.  The  user's  manual  is  provided  in  Appendix  D,  and  program  listings  and 
menu  screen  formats  are  in  .Appendix  E  and  F. 
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11.  ARMY  LOGISTICS  STRUCTURE  AND  ADPS  IN  THE  KOREA  ARMY 


A.  ARMY  LOGISTICS  STRUCTURE 

1.  Overview 

The  Korea  Army  is  the  largest  of  the  three  armed  forces  and  is  responsible  for 
providing  general-purpose  forces  to  meet  any  threat  to  the  Korean  national  security.  In 
order  for  the  Army  to  carry  out  its  mission,  it  has  to  insure  an  uninterrupted  supply  of 
weapons,  equipment,  supplies  and  other  items  to  the  combat  forces. 

The  Army  logistic  unit  was  established  to  enhance  national  security  by 
providing  a  reliable  and  supportable  supply  of  equipment  and  other  necessary  items  to 
the  various  army  units. 

To  achieve  its  objective,  the  logistic  unit  has  adopted  the  following  principals; 

•  Logistics  intelligencei  Commander  must  have  accurate  and  timely  logistics 
information  in  order  to  provide  effective  logistics  support. 

•  Objectivei  Logistics  endeavors  must  be  directed  toward  a  clear  and  attainable 
objective. 

•  Generative  logistics;  The  professional  application  of  initiative,  knowledge,  and 
ingenuity,  and  innovative  exploration  of  technical  and  scientific  advances  are 
fundamental  to  the  generation  of  logistics  systems  improvements. 

•  Interdependence;  Logistics  system  efficiency  requires  integration  with  other 
functions  of  the  system. 

•  Simplicity;  Simplicity  is  essential  at  all  levels  of  the  logistics  system. 

•  Timeliness;  Logistics  support  must  be  provided  in  the  right  quantity  at  the 
proper  time  and  place  for  accomplishment  of  the  mission. 

•  Impetus;  The  impetus  of  logistics  support  is  forward  to  support  the  combat 
mission. 

•  Cost-effectiveness;  Efficient  management  of  resources  is  essential. 

•  Security;  Security  must  be  maintained  to  preserve  resources  and  ensure 
sustained  combat  capability  (Ref  I:  p.  34) 

2.  The  Army  Logistics  Unit  Organization 

The  Army  logistics  unit  is  organized  into  three  levels,  each  responsible  for 
certain  functions.  The  next  two  sections  will  outline  the  organizational  structure  and 
the  functions  of  the  logistics  units. 


a.  Organizational  Structure 

The  organizational  structure  is  divided  into  three  levels.  The  top  level  is 
the  wholesale  echelon  which  includes  depots,  maintenance  points,  plants  and  factories 
associated  with  special  army  activities  controlled  by  the  Army  headquarters.  The 
intermediate  echelon,  i.e.  retail  sale  echelon,  is  the  next  level  and  serves  as  an  interface 
between  the  top  level  and  the  direct  support  and  use  echelon.  It  is  responsible  for 
providing  general  support  function.  The  third  and  final  level  is  the  direct  support  and 
user  echelon  which  includes  field  units  and  provides  direct  support  functions  to  the 
various  units  in  the  field. 

b.  Support  Functions 

Logistics  Units  perform  the  following  functions 

•  Supply:,  which  includes  procurement,  distribution,  maintenance  while  in  storage, 
and  salvage  of  all  contmodities  necessary  to  equip,  maintain  and  operate  the 
armed  forces. 

•  Maintenance',  which  focuses  on  repair  and  restoration  of  fielded  weapons  and 
equipment  systems.  Maintenance  is  classified  into  three  level,  i.e.  unit,  field  and 
depot. 

•  Transportation  of  troops  and  supplies. 

•  Services;  including  food  stores,  clothes  stores,  laundry,  grave  services,  fire 
fighting,  etc. 

•  Facilities;  including  real  properties  such  as  depot,  maintenance  factories,  and 
barracks,  etc. 

3.  Management  Issues 

Four  managerial  issues  were  identified  by  the  Korean  Army  Logistics 
Conintand  as  critical  to  the  performance  and  execution  of  the  logistics  tasks.  These 
elements  are; 

•  Highly  reliable  communications  between  the  logistics  units. 

•  Retention  of  sufTicient  defense  resources. 

•  High  speed  movement  of  combat  support  supplies. 

•  Utilization  of  automatic  data  processing  systems  in  order  to  effectively  manage 
the  process.  (Ref.  2:  p.  636] 

This  thesis  is  an  elTort  to  support  the  four  elements,  i.e.  the  use  of  data 
processing  in  developing  a  system  to  improve  the  retention  of  sufficient  defense 
resources;  to  reduce  communication  complexity  and  paperwork;  to  decrease  the 
response  time  for  requests;  and  to  allow  management  more  time  for  important 
decisions. 


The  next  sections  outline  a  specific  management  problem  follwed  by,  in  later 
chapters,  a  proposed  implementation  of  a  computerized  information  system,  within  the 
constraints  of  the  Korean  data  processing  environment  system. 

B.  SELECTIVE  MANAGEMENT 

1.  Oveniew 

Material  management  involves  thousands  of  individual  transactions  each  year. 
To  do  their  job  efiectively,  material  managers  must  be  able  to  effectively  use  their  time, 
concentrate  on  critical  items  and  avoid  the  distraction  of  less  critical  details. 

In  reality,  it  is  difficult  to  achieve  this  without  the  following  prerequisites; 

•  A  classification  system  to  identify  critical  items. 

•  Well  established  and  structured  procedures  to  deal  with  those  items  that  are 
considered  less  critical. 

•  A  computer  system  which  assists  managers  in  carrying  out  the  less  critical 
activities  and  which  can  identify  changes  that  may  effect  an  activity- 
classification. 

The  Logistics  unit  has  adopted  a  classification  system  which  satisfies  the  first 
prerequisite  above,  i.e.  inventory  control  procedures  that  isolate  those  items  requiring 
precise  control  from  those  items  that  do  not. 

2.  The  ABC  Classification  system 

This  system  is  based  on  the  fact  that  only  a  small  percentage  of  inventory 
items  account  for  most  of  the  total  inventory  value.  Thus  considering  the  cost  of 
management  time,  it  is  more  cost  efiTective  to  purchase  a  sufficient  supply  of  low  cost, 
low  demand  items  and  maintain  little  control  over  them. 

Before  discussing  the  classification  system,  it  must  be  stated  that  before  an 
item  is  given  low  priority  classification,  it  is  evaluated  by  the  Army  to  determine  how 
critical  it  is  for  combat.  If  it  was  classified  as  combat  critical,  it  must  be  treated  like 
high  priority  item  even  if  its  demand  classification  is  still  low  one.  Thus  a  low  priority- 
item  has  to  satisfy  two  criteria-,  an  item  shortage  will  not  disrupt  the  combat  operations 
and  its  annual  demand  in  terms  of  must  be  low. 

The  selective  management,  more  commonly  known  as  the  ABC  system,  was 
adopted  by  the  Korean  Army  to  meet  these  supply  function  considerations  in  material 
handling.  Each  item  is  given  one  of  three  classifications,  i.e.  A,  B  or  C  (see  Figure  2.1). 
Class  A  consists  of  items  whose  dollar  value  of  total  annual  demand  typically  accounts 
for  50°/o  of  the  total  dollar  value  of  the  inventory,  while  representing  only  7%  of  the 
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number  of  inventory  items.  The  B  class  consists  of  18%  with  35%  of  inventory  items. 
The  C  class  consists  of  items  whose  atmual  dollar  value  accounts  for  only  15%  of  the 
total  dollar  value  of  the  inventory  but  represents  65%  of  the  inventory  items. 


Number  of  items 

Figure  2.1  ABC  Classification. 


The  entire  inventory  is  listed  in  descending  order  from  the  largest  value  of  the 
annual  demand  to  the  smallest  and  break  points  are  between  class  A  and  B  and 
between  class  B  and  C. 

The  ABC  classification  e.\ists  to  direct  attention  to  those  inventory  items  that 

represent  the  largest  annual  expenditures.  If  inventory  levels  can  be  reduced  for  class 

A  items,  a  significant  reduction  in  inventory  investment  will  result. 

"The  purpose  of  classifying  items  into  groups  is  to  establish  appropriate  levels  of  control 
over  each  item.  ABC  analysis  is  useful  for  any  type  of  independent  demand  system 
(continuous  review,  periodic  review,  and  so  fort  Ft).  With  the  periodic  system,  the  ABC 
analysis  can  be  subdivided  so  high  usage  items  receive  a  short  review  ana  low  usage  items 
receive  a  much  longer  review" 

(Ref.  3:  p.4391 

As  previously  mentioned  the  degree  of  control  is  classification  dependent,  thus 
class  A  items  require  and  are  given  the  greatest  attention  while  the  class  C  items  are 
paid  the  least  attention.  Class  A  items  are  managed  using  an  economic  order  quantity 
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model.  A  review  of  the  inventory’  position  would  occur  each  time  an  item  is  issued  to  a 
customer.  Class  B  items  could  use  an  economic  order  quantity  (liOQ)  ba<;ed 
requisitioning  objective.  Class  C  items  require  no  special  calculations,  since  they 
represent  a  low  inventory  investment.  The  order  quantity  might  be  a  one  year  supply 
with  a  annual  review  of  the  inventory  position. 

The  success  of  the  .-XBC  system  is  dependent  on  several  factors,  among  them  is 
the  validity  of  the  assumption  that  class  .A  items  constitute  a  small  percentage.  7”,).  of 
the  total  Items  and  around  50“’ o  of  the  total  cost.  Figure  2.1  depicts  the  distribution  of 
the  cost  and  quantity  for  the  inventory  in  the  Korean  army. 

The  system  proposed  in  this  thesis  applies  continuous  review  on  class  .A  and 
some  of  class  B  items,  which  are  included  in  the  authorized  storage  list  (.ASLi.  ASL 
will  be  discussed  in  section  three  inventors'  control  means. 

C.  THE  EXISTING  SYSTEM 

1.  The  Planning-Programming-E.xecuting-Evaluating  System  (PPBEES) 

The  Planning-Programing-Budgeting-Execution-Evaluation  System  (PPBEES) 
is  a  newly  developed  system  for  the  national  resource  management  in  Korea.  It 
evaluates  managers  based  on  their  budget  expenditure  and  their  material  readiness 
condition. 

A  number  of  plans  were  developed  to  implement  this  system.  For  instance 
Accounting  System  for  Fund,  and  Fund  Management  Comparison  and  Evaluation 
System.  ^  they  had  less  success  than  originally  envisioned.  It  is  my  opinion  that  the 
clTectiveness  of  the  system  can  be  increased  by  widing  its  implementation  to  include 
Army  divisions  and  by  establishing  a  vehicle  for  division  managers  to  easily  obtain 
accurate  information  needed  in  managing  inventory.  At  the  present  time  performance 
and  operating  statistics  must  be  manually  prepared,  which  is  a  time  consunting  process 
normally  avioded  by  managers.  The  proposed  system  allows  managers  to  acquire  the 
needed  information  in  a  timely  fashion  and  to  support  both  planning  and  internal 
perfomance  audits. 

The  PPBEES  measures  performance  based  on  a  subset  of  the  supplied  items. 
The  following  sections  outline  the  division  supply  system  and  the  items  included  in  the 
PPBEES  system. 


^These  two  names  arc  literally  translated  from  Korean. 


2.  Resource  flow  in  the  infantry  division 

The  resources  {or  fund)  flow  in  the  division  is  divided  into  two  major 
categories,  materials  and  cash.  The  materials  are  about  55'%  of  total  value,  and  are  the 
subject  of  the  proposed  computer  system  in  this  thesis,  while  the  remaining  45'’'o  is 
cash. 

The  materials  issued  to  the  division  are  divided  into  three  groups  resource 
control  number  (RCN),^  automated  supply  items,  and  non  monetary  valued  items,  see 


TABLE  1 

BUDGET  RATE  OF  MATERIALS 

Item 

Contents 

Percent 

Total 

Line  item 

PPBEES  Materials 

Parts,  Gasoline, 

Medical  Equipment, 

General  Supply 

15 

30 

Automated  Issue 

Items 

Food,  Clothing,  Heating  Fuels. 
Tactical  Construction  .Materials, 
.Ammunition,  Assemblies,  End  items 

40 

70 

Non  .Monetarv 

Valued  Items 

Clothing(Ofricer,NCO) 

Field  manual.  Technical  manual 
Target 

Un¬ 

known 

Un¬ 

known 

The  RCN  grouped  material  constitutes  around  15.3%  of  the  resources,  i.e. 
30%  of  material,  and  are  issued  by  the  Logistics  Support  Command  with  RCN.  These 
are  the  only  items  tracked  by  the  PPBEES  system  and  used  in  evaluating  managers' 
perfromance. 

The  remaining  materials,  40%  of  the  budget,  are  issued  automatically  without 
user's  request.  We  can  anticipate  that  this  results  in  excess  stock  in  some  units  while 
the  other  unit  run  out.  The  division  has  no  evaluation  system  for  these  automated 
issued  line  items.  [Ref.  4;  pp.  194-196) 


^RCN  (Resource  Control  Number)  is  the  numeric  symbol  which  is  used  for 
accounting,  execution  of  supply  activities,  that  connects  the  cash  budget  and  material 
supply. 


The  division  has  only  basic  manual  means  for  recording  material  consumption. 
The  inventory  report  card  contains  only  the  present  amount  of  stock  for  each  item  in 
the  organization  unit.  The  division  should  have  a  system  to  record  material 
consumption  and  evaluate  support  performance. 

In  the  present  PPBEES  there  are  no  means  to  evaluate  the  ranking  of  the 
units  in  a  given  period,  as  well  as  a  number  of  other  problems  which  make  an 
automatized  system  highly  desirable.  For  e.xample; 

•  For  certain  items,  the  logistics  support  command  sets  a  ceiling  (ma.ximum 

allowance)  on  the  number  of  units  of  the  item  which  may  be  consumed  by  a 
division  each  calendar  year.  The  performance  of  the  division  with  respect  to 
this  item  is  judged  based  upon  the  fraction  of  the  maximum  allowance  which  is 
actually  used  during  the  year.  Obviously  divisions  with  larger  maximum 

allowances  use  items  more  freely  ,  while  divisions  with  smaller  ma.ximum 

allowance  may  suffer  from  lack  of  material.  This  may  induce  a  division 

commander  to  delay  the  maintenance  of  equipment,  to  continue  to  use 

substandard  material,  and  to  occasionally  make  inappropriate  substitutions. 

•  There  are  too  many  elements  to  compare.  For  each  RC\  item  there  are  20 
criteria  used  in  the  evaluation.  Each  division  has  20  units  and  each  regiment  has 
23  companies.  Division  managers  do  not  have  the  required  resources  to  do  this 
comparison  manually. 

•  The  system  requires  too  much  paperwork.  Headquarters  must  calculate  costs  by 
equipment  and  by  subordinate  units.  Both  are  difficult  manual  efforts  which 
may  include  significant  errors. 

3.  Inventory  operation  and  control  in  divisions 

The  supply  procedure  in  divisions  is  shown  in  figure  2.2  The  principal  actions 
between  supplier  and  customers  are;  requests  for  issue;  turn-ins;  and  cancellations. 
These  actions  take  place  between  a  unit  and  a  division  and  between  a  division  and  the 
logistics  support  command.  For  example  when  a  company  sends  a  "request  for  issue" 
to  a  regiment,  the  regiment  passes  it  to  division.  The  division  issues  the  item  if  it  is  on 
hand;  if  not,  a  request  is  sent  by  division  to  the  logistic  support  command.  The 
logistics  support  command  processes  the  requisition  through  their  computer  system, 
and  generates  an  issue  list  containing  all  the  items  requested  by  the  division.  .After  the 
division  receives  the  list  and  material,  all  due-outs  to  division  customers  are  filed  and 
the  remaining  material  is  stored  pending  the  next  request.  All  requests  for  issues  from 
lower  units  are  handled  daily.  The  proposed  system  follows  this  basic  procedure. 

The  control  measures  in  these  procedures  are  the  authorized  storage  list 
(,\SL),  requisition  objective  (RO),  safety  level  (SL),  and  order  shipping  time  (OST). 


A.  Supply  procedure  from  division 


Logistics  ' 
Support 
Command  . 


Request  for  issue  or  cancel 

©Receive  from  Loqi^tics 
support  comm^d 

Tumm^t^ogistics  support 


(2)  Request  for  issue  or  cancel 
©  issue  to  organization 

Turnin  from  organization 


B.  Current  Transaction  record  procedure 


Company 


Regiment 


Division  Logistics  support  comd 


Figure  2.2  Division  Supply  Procedure 


a.  Authorized  Storage  List  (ASL) 

Authorized  storage  list  defines  all  supplies  which  can  be  stored  by  the 
supply  unit  to  meet  expected  demand.  This  is  based  on  selective  management  similar 
to  the  ABC  classification.  The  ASL  considers  economic  and  support  performance 
objectives.  If  support  performance  was  the  only  consideration,  all  items  will  be  stored. 
This  ob\iou'>Iy  would  be  \  ery  costly,  would  increase  the  dilTiculty  handling  the  material 
and  decrease  the  maneuverability  of  the  unit.  On  the  other  hand  if  we  consider  only 
economics  the  unit  performance  would  be  degraded  and  there  would  be  a  serious 
increase  in  unnessary  stock.  Therefore  the  stock  should  be  the  minimum  required  to 
perform  the  mission. 

To  get  the  minimum  required  stock,  we  have  to  consider  measures  of 
effectiveness  (MOEs);  Let's  assume  that  total  cost=  ffx)  and  support  performance  = 
g(x).  We  have  to  nunimize  ffx)  and  maximize  g(x).  but  as  x  increases  both  fl^x)  and  g(x) 
increase.  There  is  conflict  !  So  what  is  usually  done  is: 

1.  Choose  a  specific  minimum  value  for  g(x),  ie  g(x)  must  be  greater  than  this 
value  (call  it  "b '). 

2.  .Minimize  fEx)  subject  to  g!  b. 

A  ranking  similar  to  the  ABC  system  was  developed  for  the  demand 
frequency  of  each  item.  As  shown  in  Table  2  --(A)  ,  85%  of  total  demand  frequency 
includes  only  ISf  o  of  all  items  required  by  the  supported  unit;  even  if  we  increase  this 
latter  percentage  to  fOI'o  and  reexamine  the  associated  fraction  of  total  demand 
frequency,  the  increase  of  demand  frequency  is  only  3-4'fo. 

This  fact  suggests  that  by  storing  15-20%  of  all  items  it  is  possible  to  meet 
85“  b  of  the  support  requirement.  This  is  the  basis  of  ASL,  ie  satisfying  85%  of  all 
requisitions.  The  achieved  DFR  is  the  ratio  of  demand  for  ASL  items  to  the  total 
elTective  demand.  Total  effective  demand  is  the  demand  of  all  items  less  cancellations. 

ASL  is  divided  into  6  groups:  active  items,  stand-by  and  essential  items, 
Prescribed  Load  List  (PLL)  of  Organization  Unit,  the  supported  units  ASL,  direct 
exchange  and  repair  parts  for  new'  equipment,  and  substitution  of  maintenance. 

•  The  active  items  are  the  items  included  in  851b  of  the  demand  frequency  rate. 

•  Essential  items  for  any  future  emergency  are  decided  by  the  Army  Commander. 

•  Prescribed  load  list  of  organization  unit  are  repair  parts  and  tools  intended  to 
give  worth  of  support  15  days  and  must  be  stored  in  each  organization. 

•  When  two  or  more  items  have  functional  and  physical  characteristics  that  cause 
them  to  be  equivalent  in  performance,  reliability  and  maintainability,  only  one 
of  the  items  will  be  on  the  ASL 
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ITEMS  NUMBER(%) 


B).  AUTHORIZED  STORAGE  LIST 


ASL  Items 


Total  Annual  effective  demand 


Immediate  issue 


Non  ASL  Items 


Delayed  issue 


Demand  flexibility  rate  =  (ASL  -r  Total  effective  demand)  x  100 


C).  ANNUAL  DEMAND  FREQUENCY  FOR  ASL 


Chemical  Items 


Engineer  Items 


Ordnance  Items 


6times  Quatermaster  Items  Stimes 


3times  Communication  Items  3times 


Transportation  Items 


Stimes 


Stimes 


When  stock  changes  or  when  catalog  data  are  updated,  all  additions  or 
deletions  are  made  in  the  ASL.  Other  changes  include  inter-changability  and 
substitution  between  items.  The  deputy  chief  of  staff  logistics  (DCoSLOG)  in  the 
Army  flQ  reviews  the  ASL  semiannually  for  potential  range  reductions.  Inclusion  on 
the  ASL  depends  on  the  minimum  number  of  times  an  item  is  ordered  as  shown  in 
Table  2-C. 

b.  Requisition  Objective  (RO) 

Each  ASL  item  must  have  an  RO  recorded  in  the  stock  accounting  record. 
The  RO  is  the  maximum  quantity  of  the  item  authorized  to  be  on  hand  and  on  order 
at  any  time.  Retention  of  assets  above  the  RO  is  authorized  under  certain  conditions. 
The  RO  computations  are  made  in  a  davs  of  supply  (DOSs)  mode  or  economic  order 
quantity  (EOQ)  mode. 

(1)  Days  of  Supply  {DOS).  The  DOS  mode  will  be  used  by  nonautomated 
accounts  when  computing  stock  for  items  that  are  critically  short,  seasonal,  highly 
perishable,  or  have  a  shelf  life  of  less  than  3  years.  A  DOS  RO  will  be  computed  at 
least  semiannually,  or  when  the  balance  on  hand  is  equal  to  or  less  than  the  reorder 
point  ( ROP),  or  when  the  balance  on  hand  equals  zero. 

The  DOS  RO  is  the  sum  of  the  operating  level  (OL),  safety  level  (SL), 
and  order  shipping  time  (OST)  in  days;  multiplied  by  the  quantity  demanded  during  the 
control  period  (one  year  for  division),  divided  by  the  number  of  days  in  the  control 
period.  The  ROP  is  the  sum  of  the  SL  and  OST  in  days,  multiplied  by  the  quantity 
demanded  during  the  control  period  divided  by  the  numbers  of  days  in  the  control 
period. 

(2)  Economic  order  quantity  {EOQ).  The  EOQ  RO  is  the  sum  of  the  EOQ 
and  the  ROP  quantities  which  will  minimize  the  total  variable  cost  of  stock  for  a 
specified  performance  goal.  The  performance  goal  is  based  on  how  essential  the  item 
is.  The  amount  of  stock  may  be  constrained  by  mobility  and  fiscal  limitations.  The 
total  variable  cost  consists  of  order  cost  (replenishment  and  wash  actions),  change  cost 
(cost  to  add  and  delete  an  item),  cost  to  maintain  an  item  in  stock,  storage  holding 
cost,  and  the  implied  shortage  cost.  The  implied  shortage  cost  is  not  a  measurable  cost 
(to  calculate  this  cost  refer  to  the  Appendix  A  statistical  consideration.) 

The  implied  shortage  cost  will  be  used  in  automated  systems  as  a 
variable  to  adjust  a  stock  level  to  meet  a  specified  performance  goal.  Stock  criteria  will 
be  variable  when  the  EOQ  is  used  by  automated  systems.  The  EOQ  mode  will  be  used 
by  automated  accounts  (higher  than  division  level  so  far). 


c.  Order  shipping  time  ( OS  T) 

OST  is  used  computing  both  EOQ  and  DOS.  It  is  the  average  number  of 
days  that  elapse  between  the  document  date  of  the  requisition  and  the  date  the  receipt 
is  posted  to  the  stock  accounting  record. 

When  OST  is  not  available,  as  in  the  case  of  the  manual  system  used  in 
DOS.  it  has  to  be  computed.  The  computation  is  based  on  the  average  OS  F  of  the  six 
most  recent  replenishment  receipts  and  rounded  to  the  ne.xt  higher  number  of  whole 
days.  In  computing  OST,  requisitions  are  e.xcluded  if  they  have  long  delays  from 
wholesale  backorder,  unusual  circumstances,  or  lack  of  funds.  A  cumbersome  manual 
process! 

OST  is  updated  each  time  the  RO  is  recomputed.  Because  of  the  fact  that 
most  of  the  system  is  manual,  updates  to  the  OST  is  done  annually. 

4.  Current  documentation  and  report  forms 

The  documents  maintained  by  division  logistics  departments  are  classified  by 
contents  and  include; 

•  Inventory  status  for  each  item 

•  Evaluation  worksheet  for  the  PPBEES 

•  Documents  for  T.'WIMS'* 

•  The  record  of  consumable  item  consumption 

These  report  mainly  focus  on  the  historic  data  and  are  dilTicult  to  use  in 
computing  statistics  and  information  needed  by  managers.  For  example  the  current 
documentation  is  inadequate  to  use  in  material  planning.  Although  it  shows  the 
current  stock  level  of  items,  funds,  etc.  This  data  can  not  be  used  by  a  computer  and  is 
dilTicult  to  retrieve,  sort  or  manually  manipulate  to  calculate  the  needed  information. 

The  format  of  the  recording  form  is  inconvenient.  The  documents  or  forms 
should  be  able  to  prove  the  transaction  history  and  also  be  user  friendly.  In  the 
current  documents,  transactions  are  recorded  by  date  sequence,  when  any  cancellation 
of  requisition  occurs,  it  is  very  difficult  to  locate  and  correct  all  previous  records. 
Records  written  in  pencil  are  hard  to  use  as  vouchers. 


■'TAM.MS  is  a  abbreviation  of  The  .Army  Maintenance  Management  System 
which  contains  the  historic  records  of  maintenance,  and  operation  of  all  equipment. 
This  data  will  be  used  in  requisitioning  of  the  new  equipment  requisition. 


D.  CURRENT  USE  OF  COMPUTERS  FOR  LOGISTICS  IN  ROK  ARMY 


1.  Overview 

In  March,  1967  the  first  computer  was  introduced  in  Korea  to  assist  with  a 
census  of  the  Korean  population  for  the  Economic  Planning  Board.  The  Korean  Army 
installed  its  first  computer  system  in  the  Army  HQ  for  the  management  of  military 
personnel  in  1972.  The  next  year  another  computer  was  installed  at  the  Logistics 
Command  to  assist  with  logistics  management.  Subsequently  several  computer  centers 
were  established.  All  these  computer  centers  are  directly  controlled  by  the  staff  of  the 
Army  HQ.  [Ref  5:  p.  14] 


Main  frame 


Main  frame 


Main  frame 


Mini  computer 


Figure  2.3  Army  Logistics  Computer  System. 


In  the  late  of  70' s,  an  integrated  software  development  center  was  established 
at  the  Central  Automatic  Data  Processing  Center  (ADPC)  to  develop  software  for  the 
mainframe  computer  used  by  the  logistics  command  and  Army  HQ.  The  second 
center,  the  Logistics  Management  Information  Center,  was  established  to  suppon  .MIS 
development  activities  in  the  G-4  of  the  Army.  It  endeavors  to  improve  .MIS 
capability  and  has  gained  the  attention  of  high  level  managers. 

The  hardware  installed  in  the  various  computer  centers  is  different.  IBM  370, 
and  UNIVAC  90/30  and  1100  series  machines  are  very  common.  These  are  batch 
system  and  are  not  connected  with  each  other.  The  application  software,  which  is  run 
periodically  by  users,  was  developed  using  old  technology,  i.e.  flat  file  system. 


The  file  system  and  the  fact  that  the  computers  are  not  connected  results  in  a 
high  degree  of  redundancy.  Each  computer  center,  even  those  under  the  control  of  the 
Department  of  Computers  at  .Army  HQ,  has  several  files  containing  the  same  data 
elements.  For  example  the  .Army  personnel  system,  payroll  system,  and  medical  system 
all  contain  common  data  elements  which  are  updated  independently,  a  potential  source 
of  data  integrity. 

.A  second  problem  which  has  afi’ccted  the  development  of  the  data  processing 
field  in  the  army  is  a  shortage  of  qualified  personal. 

Recently,  high  level  managers  have  recognized  the  need  for  the 
standardization  of  hardware  and  unification  of  application  software.  This  has  resulted 
in  an  ongoing  effort  to  bring  the  data  processing  systems  in  Korea  to  the  leading  edge 
of  technology.  .As  a  result,  a  number  of  mini-  and  microcomputers  have  been  installed 
at  the  division  level. 

2.  ADP  Support  to  logistics 

It  is  necessary  for  the  commanders  to  have  adequate  forecasting  capability  for 
the  effective  command  and  control  his  unit.  The  use  of  ADP  systems  has  significantly 
increased  the  commander's  visibility  and  has  had  an  effect  on  logistics  operations.  The 
.Automatic  Data  Processing  Center  (ADPC)  within  the  logistics  structure  has  provided 
significant  support.  The  ADPC.  dedicated  to  logistics  operations,  supports  its  own 
internal  functions  such  as  stock  control  within  the  responsible  area  and  routine  jobs 
such  as  reports  generation  for  higher  commands.  Additionally  the  center  provides  to 
other  departments  the  logistics  information.  In  the  division  level,  reports  are  manually 
generated. 

One  concern  of  this  thesis  is  an  important  report  generating  function  of 
.ADPC;  the  inventory  status  report.  This  report  is  presently  created  by  division  G-4  for 
logistics  support  command  mannually. 

This  reporting  system  will  be  designed  in  this  thesis  to  provide  up-to-date 
accurate  inventory  status  data  for  major  items  pertaining  to  each  division.  In  addition 
to  the  inventory  status  report  there  are  many  other  reports  which  are  needed  to  control 
the  inventory.  These  reports  provide  information  to  the  division  commander  and  higher 
logistics  support  units  so  that  readiness  can  be  evaluated.  These  reports  also  indicate 
the  shortage  and  overage  of  material  and.  when  integrated  at  higher  levels,  allow  the 
command  to  determine  new  procurement  needs,  prepare  budgets,  redistribute  assets 
and  take  disposal  actions. 
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E.  SUMMARY 


This  chapter  presented  a  description  of  the  existing  inventory’  control  system  and 
data  processing  capabilities.  Several  issues,  stated  in  this  chapter,  were  paramount  in 
the  decision  to  develop  the  proposed  inventory  control  system.  For  example; 

•  The  existing  system  has  limited  capability  in  the  development  of  elTective 
material  management. 

•  The  PPBFiFS  implementation  will  benefit  from  a  computerized  .Management 
Information  System. 

•  The  documentation  in  the  present  system  is  cumbersome  and  inadequate  for 
managers. 

A  database  management  system  can  be  used  to  resolve  these  problems.  A  well 
developed  one  will  provide  the  information  needed,  maintain  records  of  transactions 
and  exchange  the  information  with  other  computers. 

This  system  has  to  be  user  friendly  and  reduce  to  an  acceptable  minimum  the 
dependency  on  the  data  processing  personnel.  Its  implementation,  including 
installation,  must  be  simple  and  must  use  the  microcomputers  available  in  the  various 
units. 

The  problem  the  system  resolves  is  well  structured  to  insure  the  system's  success. 
At  the  same  time  the  system  design  has  a  degree  of  flexibility  to  expand  at  a  later 
point.  The  existing  system  is  labour  intensive  and  the  proposed  system  will  sate 
managers  precious  time  for  more  important  activities. 

The  system  described  in  this  thesis  was  designed  with  these  facts  in  mind.  As  such 
it  resolves  a  problem  by  using  microcomputers,  and  a  user  friendly  interface,  and 
allows  for  electronic  communication  of  data. 


IH.  RELATIONAL  DATABASE  MODELS 


A.  INTRODUCTION 

1  he  proposed  system  is  a  relational  database  management  system  which  uses 
dBASEIIIplus.  In  this  chapter,  a  brief  description  of  relational  database  models  is 
given. 

B.  WHAT  IS  DATABASE? 

A  Database  is  basically  a  computerized  record  keeping  system,  that  is,  a  <vstem 
whose  overall  purpose  is  to  record  and  maintain  information  for  future  retrieval.  D.R. 
Howe,  the  author  of  Data  .Analysis  for  Database  Design,  defined  a  database  as  "a 
collection  of  non-redunJant  data  shareable  between  different  application  system".  He 
extended  his  definition  by  saying  that  non-redundant  means  unnecessarily  duplicated 
data  adds  no  new  information',  sharing  data  as  a  multiple  usages  in  multiple 
applications' .  (Ref  6:  P.  1| 

.A  database  should  be  structured  so  as  to  provide  a  foundation  for  future 
application  development.  It  can  be  manipulated  into  information  for  management 
purpose. 

A  database  model  is  an  abstract  representation  of  data.  It  defines  the  way  that 
data  items  are  organized  and  related.  There  are  two  major  classes  of  database 
representation,  the  physical  and  logical  models.  The  physical  model  represents  the 
actual  structure  of  the  data  in  the  computer.  The  logical  model  represents  how  a  user 
perceives  the  data  organization.  For  example,  in  an  inventory  system,  we  may  have 
the  following  case; 

A  number  of  parts  are  located  in  a  number  of  warehouses,  shown  on  Figure  &str-A. 

The  physical  structure  may  consists  of  the  following  files 

•  .A  part  file  which  consists  of  the  part  number  and  all  the  attributes  which 
specifically  describe  this  part,  such  as  part  name,  price,  weight,  and  the  vendor 
supplying  this  part  (assuming  that  a  part  is  supplied  by  one  vendor  only),  etc. 

•  A  warehouse  file  which  consists  of  a  list  of  all  warehouses  and  those  attributes 
unique  to  each  warehouse. 

•  .A  relationship  file  which  consists  of  the  attributes  that  describe  the  relationship 
between  parts  and  warehouses,  e.g.  number  of  units  of  part  1234  (QUANTITY) 
in  warehouse  .A- 12  and  location  of  the  part  in  this  warehouse  (bin  27.AC) 


B.  Manager's  View 


C.  Worker's  View 
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Figure  3.1  View  of  database. 

The  logical  structure  is  a  user  view,  and  as  such  it  is  dependent  on  the  user.  For  a 
warehouse  manager,  the  logical  view  may  be  similar  to  the  one  shown  in  Figure  3.1-B, 
ie.  the  warehouse  data  and  the  pans  available  in  that  warehouse  and  the  vendor  of 
each  pan. 

A  second  user  view  may  be  that  of  a  worker  on  a  machine.  In  this  case  the 
person  is  interested  in  seeing  the  pan  data  and  attributes  as  well  as  the  warehouses 
where  this  part  is.  He  is  not  interested  in  knowing  the  vendor  or  the  location  of  the 
part  in  a  warehouse. 

This  type  of  file  structure  facilitates  adding  new  views  based  on  user  requirements 
without  changing  the  physical  structure  of  the  files  and  reduce  the  number  of 
redundant  elements  and  the  update  effon.  Programs  share  the  data  instead  of  having 
the  same  data  duplicated  for  each  program,  creating  an  update  nightmare. 

The  database  management  system  is  responsible  for  managing  the  physical 
storage  of  data.  Thus  if  a  data  element  physical  characteristic  changes,  no 
programming  changes  are  required  since  each  program  requests  a  data  element  by 
name  and  is,  to  a  great  e.xtent,  independent  of  the  element's  physical  characteristics. 


C.  RELATIONAL  DATABASE  MODEL 

The  database  model  discussed  in  the  previous  example  is  called  the  Relational 
Model.  A  basic  quality  of  the  relational  model  is  its  simplicity. 

li  was  iniroditced  hy  Dr.  E.  F.  Codd  in  a  seminar  paper  in  I9~0.  The  paper  have  been 
written  concerning '  the  most  appropriate  to  express  relations,  tie  stressed  the 

independence  of  the  relational  represeniaiion  -om  physical  computer  imrlemeniation  such 
as  ordering  on  physical  devices,  indexing,  and  using  "physical  access  paths.  .Although  the 
relational  model  has  many  de.sirahle , characteristics,  li  was.  until  recently,  a  suh'eci  of 
theoretical  interest  only,  fn  the  last  few  years  commercially  viable  database  management 
system  iDITM.S)  became  available  'and' in  the  early  IQ.^Os,  several  itnportant  DBMS 
products  were  _  introduced.  SOI.  DS  i  vended  hy'IB.M)  and  OR.AClE  (vended  by 
Relational  software  Incorpoi aTeJ)  are  two  examples.  Since  these  announcement,  the 
relational  moitel  has  come  to  he  o/' greater  practical  significance. 

[Ref.  7:  p.  24:|  ^  ^  ^  ^  ^ 

The  following  definitions  introduce  a  number  of  terms  that  will  be  used  in 
describing  the  proposed  material  control  model. 

I.  Relation 

.A  relation  is  a  table  of  data  (a  file)  and  consists  of  rows  (tuples)  and  columns 
(attributes).  The  data  table  provides  a  simple  data  structure. 
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Figure  3.2  Relation  of  property. 


Figure  3.2  shows  an  example  of  a  table  (or  relation);  the  table  contains  six  columns 
(each  represents  an  attribute)  and  five  rows  (tuple,  each  represents  a  specific  record). 
The  intersection  of  each  row  and  column  in  the  table  contains  a  value.  For  instance. 
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Test  iteml  is  an  attribute  value  of  the  attribute  type  "NM"  for  the  record  belonging  to 
stock  number  1 111-1 1-1 1 1-11 1 1. 

There  are  a  number  of  constraints  that  must  be  observed  when  building  tables; 

•  The  ordering  of  rows  is  not  important  because  the  rows  can  be  interchanged 
without  affecting  the  information  content  of  tlie  table. 

•  The  ordering  of  columns  is  not  important  either,  for  the  same  reason. 

•  Tach  row  and  column  intersection  contains  a  single  attribute  value.  .Multiple 
values  are  not  allowed. 

•  Each  row  in  a  table  must  be  distinct;  no  two  rows  can  have  the  same  attribute 
values  throughout.  (The  significance  of  this  rule  is  that  a  row  can  always  be 
uniquely  identified  by  quoting  an  appropriate  combination  of  attribute  values.) 

An  attribute  value  may  be  null,  but  a  null  value  does  not  mean  that  the 
attribute  is  blank,  e.g.  the  unit  cost  of  test  item4  may  be  entered  in  the  table  after  the 
record  has  been  created. 

Each  attribute  has  a  domain,  a  set  of  values  that  the  attribute  can  have.  For 
e.xample,  the  domain  of  unit  cost  is  a  positive  eight-digit  number  with  2  decimal  points. 

2.  Keys 

We  want  to  be  able  to  identify  each  tuple  (record)  in  a  relation  by  the  value  of 
at  least  one  of  its  attributes.  In  Figure  3.2,  the  stock  number  (S\)  is  a  unique 
identifier  since  no  other  row  may  have  the  same  stock  number. 

If  there  is  no  one  unique  attribute,  then  a  combination  of  more  than  one  may 
have  to  be  used.  The  table  data  structure  shown  in  Appendix  C  includes  examples  of 
keys  which  have  more  than  one  attribute. 

3.  Record  relationships 

The  essence  of  a  database  is  the  representation  o'"  record  relationships.  The 
relationships  can  be  specified  in  a  variety  of  ways. 

The  relationships  are  identified  intuitively.  The  designer  considers  potential 
relationship  among  records  that  have  been  defined.  A  relationships  may  exist  among 
three  or  four  or  more  records.  For  e.xample  with  records  of  the  proposed  system, 
M.ASTER  records  have  many  property  records,  while  one  PROPERTY  record  has  only- 
one  .ASL  record.  Many  STOCK-OUT  records  have  many  MASTER  records. 

4.  Database  Management  System 

A  database  management  system  (DB.MS)  is  a  software  system  which  performs 
the  functions  of  defining,  creating,  revising,  and  controlling  the  database.  It  provides 
facilities  for  retrieving  data,  generating  reports,  revising  data  definitions,  updating  data, 
and  building  applications. 
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Figure  3.3  Record  relationship. 


Several  relational  DB.VIS  are  available.  The  one  used  in  developing  this 
inventory  control  system  is  Dbase  III  Plus.  The  version  used  is  the  Microcomputer 
version.  However,  an  extension  which  includes  SQL,  a  facility  which  allows  sharing  of 
data  with  mainframe  computers  is  under  development  and  will  be  introduced  in  the 
very  near  future. 

DbaselllPlus  is  the  market  leader  among  DB.MSs  in  the  United  States. 
Several  supporting  products  have  been  introduced  such  as  compilers  to  increase 
execution  speed  and  application  generators  to  optimize  the  code  execution.  It  has 
network  capabilities  which  allow  sharing  of  data,  and  security  procedures  not  available 
in  the  single  user  version.  It  also  has  its  own  programming  language,  which  facilitates 
the  development  of  user  friendly  interfaces. 


IV.  THE  PROPOSED  SYSTEM 


A.  OVERVIEW 

Tins  chapter  describes  the  existing  manual  procedures  and  the  proposed 
computerized  system. 

B.  MANL  AL  SYSTEM 

Presently,  a  logistics  unit  in  a  division  receives  a  request  for  issue  of  an  item,  an 
item  turn-in.  or  cancellation  of  a  requested  item  from  lower  level  organizations.  The 
same  set  of  requests  occur  between  the  division  and  the  LSC.  Transactions  are 
recorded  in  property  books  and  this  generates  a  second  type  of  process,  that  is  the 
editing  of  erroneous  entries. 

Transactions  are  aggregated  to  produce  management  reports,  which  are  used 
during  the  analysis  for  the  next  planning  cycle  and  for  evaluating  the  performance  of 
managers. 

Two  sets  of  books  exist,  the  first  book  is  the  transaction  log  in  which  records  of 
each  request  are  kept.  Each  entry  includes  the  transaction  number,  date,  item  ordered 
and  quantity.  The  second  set  is  the  property  book  which  has  a  page  for  each  stock 
number  and  the  on-hand  quantity  of  this  item.  W'hen  a  request  is  satisfied,  both  sets  of 
books  are  updated. 

C.  THE  PROPOSED  SYSTEM  STRUCTURE 

As  requests  arrive  at  the  division,  either  from  outside  entities  or  internal 
personnel,  the  end  user  enters  the  request  data  using  a  screen  identical  in  its  format  to 
the  request  form.  Entries  are  edited  by  the  system  for  errors  using  hard  coded  criteria, 
and  stored. 

The  system  consists  of  several  files  and  modules.  The  Batch  and  Master  files  are 
similar  in  structure  to  the  Transactions  Record  Book,  while  the  Property  File  and  the 
.ASL  file  are  similar  to  the  Property  Book.  An  item  is  included  in  one  of  these  latter 
files  based  on  its  classification  and  whether  the  item  is  PPBEES  trackable  or  not.  The 
Stock  Out  file  combines  elements  from  both  books  and  the  Customer  file  contains 
customer  s  attributes  such  as  address,  customer  ID,  zipcode.  etc. 


Modules  in  the  system  perform  several  functions.  For  example,  when  transactions 
are  processed  the  system  updates  the  quantity  on  hand,  creates  a  transaction  record, 
the  completion  date  of  a  transaction  is  generated  and  the  transaction  record  is  moved 
to  the  M.-XSTER  file.  The  date  field  is  used  for  performance  measurement  purposes. 
For  example  the  date  field  will  help  answer  questions  about  turn  around  time  for  a 
specific  item. 

If  the  stock  on  hand  ..iter  satisfying  the  current  demand  is  less  than  the  reorder 
point,  an  attribute  for  each  item,  the  stock  onhand  field,  is  updated  to  reflect  the 
current  onhand  amount  and  a  request  for  issue  to  the  supplier  will  be  generated 
automatically.  When  the  amount  is  less  than  zero,  a  stock-out  record  is  added  to  the 
STOCK-OLT  file,  and  the  system  sends  a  delivery  delay  warning  to  the  user.  This 
process  is  illustrated  in  a  flow  chart  in  Appendix  C. 

One  issue  list  per  customer  is  generated,  regardless  of  the  number  of  items 
requested  in  one  day.  under  one  receipt  voucher  number.  The  same  is  true  for  a  request 
for  issue  to  ESC.  Figure  4.1  shows  examples  of  the  issue  list  and  request  for  issue. 
The  processing  of  the  other  type  of  transactions  follows  almost  the  same  procedure. 

When  the  supplier  issues  stock  to  the  division,  the  stock  is  examined  to  determine 
whether  it  is  new,  i.e.  initial  supply,  and  if  it  is,  the  program  will  ask  the  user  to  enter  it 
in  the  property  file,  and  in  the  .ASL  file  if  necessary. 

The  fact  that  the  system  does  not  require  more  than  one  entry  per  request  and 
that  it  interrogates  all  of  the  appropriate  files,  without  end  user  intervention,  drastically 
reduces  the  amount  of  end  user  time  per  request. 

The  system  is  fle.xible  and  can  accommodate  a  number  of  potential  user  requests. 
For  example,  If  a  user  wants  to  extend  the  output  information  to  the  type  of 
operation,  he  can  add  one  attribute  to  Master  file  for  the  operation  type,  the  query- 
program  can  easily  support  such  requests. 

Figure  4.2  depicts  the  data  flow  in  the  proposed  system  and  Figure  4.3  shows  the 
transaction  data  flow  diagram. 

D.  THE  PROPOSED  SYSTEM  FUNCTIONS 

I.  Transaction  tracking 

The  main  purpose  of  the  transaction  tracking  is  to  record  each  customer's 
request  for  inventory  planning  and  management  purposes.  The  proposed  system 
generates  reports  on  the  status  of  each  customer's  or  stock  item.  Transaction  records 
are  saved  in  the  .Master  File  for  analysis  of  trends.  The  ASL  file  provides  criteria  such 
as  Reorder  point,  requisition  objective,  and  safety  level. 
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Figure  4. 1  Examples  of  transaction  output. 

For  management  purposes,  a  manager  may  ask  specific  questions  on  a 
transaction  record,  a  customer's  transaction  history,  or  the  status  of  a  certain  stock 
item.  However,  The  system  stock  item  queries  are  limited  to  the  status  of  the  item.  An 
extension  to  determine  the  location  of  an  item  may  be  added  with  minor  changes  to  a 
database  file.  This  programming  effort  may  be  done  by  a  knowledgeable  user. 

2.  Report  Generation 

One  of  the  most  important  functions  of  the  proposed  system  is  to  generate 
reports  required  by  the  logistics  support  command  and  the  internal  division  manager. 
The  system  has  a  number  of  hard  coded  repons  and  a  simple  ad  hoc  reporting  facility. 
The  hard  coded  reports  are  described  in  Appendix  C. 


37 


Figure  4.3  Transaction  data  flow  diagram 
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Reports  may  be  classified,  into  two  groups,  internal  use  and  external  reports. 
Internal  use  reports  are  those  used  for  performance  analysis.  The  external  reports  are 
the  transaction  output,  e.g.  the  issue  list  resulted  from  request  for  issue  of  the 
organizational  unit,  request  for  issue,  request  for  tum-in  are  for  Logistics  Support 
Command. 

Figure  4.4  shows  the  data  flow  for  report  generation.  More  reports  may  be 
added  to  the  system,  if  requested,  this  will  bring  the  system  closer  to  a  complete 
inventory  planning  management  information  system. 
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Figure  4.4  Report  data  flow  diagram- 

3.  Limited  analysis 

The  proposed  system  uses  the  fixed  order  size  probabilistic  model  for 
determination  of  reorder  point,  safety  level,  and  economic  order  quantity. 

The  assumptions  involved  in  the  proposed  system  are; 

•  The  demand  is  continuous  and  normally  distributed, 

•  Armual  demand  can  be  obtained  through  the  transaction  history  record, 

•  There  are  no  seasonal  effects  on  demand, 

•  The  lead  time  is  constant. 


•  Service  level  for  each  item  is  known  or  determined  by  managers, 

•  The  stock-out  cost  is  knowm. 

Other  statistical  consideration  are  presented  in  appendix  A. 

The  annual  demand  is  determined  by  summing  the  effective  demand  (total 
demand  -  canceled  demand)  and  the  monthly  demand  is  calculated  by  dividing  annual 
demand  by  12.  The  standard  deviation  of  demand  is  calculated  from  the  transaction 
record  histor>'.  The  lead  time  is  obtained  by  computing  the  arithmetic  average  of  the 
order  shipping  times  from  historical  data  for  a  specified  period  of  time. 

After  all  parameters  are  determined,  the  reorder  point,  safety  level,  and 
requisition  objective  are  calculated  and  updated. 


r  M  F  0  R  M  A  r  I  0  N  tor  ANALYSIS 


You  salectad  stock  numbar 

:  8833-38-888-3388 

(Tasc  ic«a8,  UnitiE* 

Class: 3  ) 

Purchasinq  price <P) 

:  22  $/Ea 

Annuel  Oenend ( R ) 

:  100  Ea/ysar 

Lead  timelOST!  in  Month 

:  0  Monch(s) 

Ordering  coat(C) 

:  0.00  S/order 

Holding  cost  unit  per  year 

:  0.00  % 

(Select  one  of  these) 

Stockout  cost (If  Known) 

:  0.00  S/unit  Select?  N 

Service  Level  in  year 

;  0.0000  %  Select?  Y 

[PRESENT]  Reorder  point  :15  Safaty  L*v*l  :io 

Requisition  objective  :50  Lead  Time  ;  14 


Is  this  record  riqht’IY/N):  X 


Figure  4.5  The  output  from  analysis  process. 


4.  Use  friendly  interface 

One  of  the  purposes  of  this  thesis  is  to  design  a  user  friendly  computer 
program.  Novice  computer  users  can  use  it  without  special  training.  The  proposed 
system  provides  a  user  friendly  interface  by  minimizing  the  possibility  of  errors.  The 
user  does  not  have  to  know  about  the  disk  operating  system.  And  a  manager  who  is 
not  familiar  with  a  division  inventory  system  can  use  it,  since  most  of  the  transaction 
processes  proceed  automatically. 


E.  SYSTEM  LIMITATIONS 


The  proposed  system  is  not  a  perfect  system.  An  objective  of  this  system  is  to 
improve  logistics  management  capability.  This  is  a  diflicult  task  and  requires  many 
additional  software  applications.  For  e.xarnple.  better  system  would  include  accounting 
and  inventory  tracking  functions.  The  proposed  system  addresses  just  on  main  logistics 
function.  Constructive  conunents  and  remarks  are  welcomed  and  solicited. 

1.  Demand  forecasting 

Demand  forecasting  forms  the  basis  of  managerial  decisions  and  if  it  is 
accurate,  managers  don’t  have  to  worry  about  safety  level  or  lead  times. 

The  proposed  system  does  not  forecast  demand.  The  annual  demand 
quantities  are  based  on  one  year  historical  records  or  as  specified  period.  .Managers 
can  retrieve  historical  demand  data  in  various  forms,  by  item,  period,  unit,  or 
combinations,  and  use  it  in  forecasting. 

.An  extension  to  the  software  is  needed  to  provide  demand  frequency 
information  by  unit  by  type  e.g.  training,  exercise,  routine  job,  or  special  purpose. 

2.  Statistical  analysis  of  transactions 

Statistcal  analysis  was  not  fully  covered  in  this  system.  Only  two  models  were 
presented  for  analysis;  the  known  stock-out  cost  model  and  service  level  model  under 
normally  distributed  demand,  were  presented.  There  are  a  number  of  other  models  for 
inventory  management.  The  system  should  be  enhanced  by  adding  various  models  and 
allowing  organizations  to  choose  the  model  appropriate  for  their  needs. 

3.  ASL  request 

.As  was  mentioned  in  chapter  II.  the  division  commander  can  ask  for 
additional  items  for  the  ASL  for  his  division.  The  basis  of  for  this  request  is  also 
described  Table  2  in  chapter  II.  The  query  menu  in  the  software  written  for  this  thesis 
allows  the  division  logistics  manager  to  quickly  determine  if  a  particular  item  will 
qualify  for  stockage  in  the  ASL  based  upon  its  demand  history.  The  software  for  this 
thesis  does  not,  however,  include  the  facility  to  automatically  generate  a  request  to  add 
a  particular  item  to  the  division  ASL. 

4.  Fund  Accounting 

The  accounting  of  the  fund  (of  RCN)  is  important  to  managers,  so  the 
proposed  system  is  partially  prepared  to  do  this  function.  1  he  resource  control  number 
(RCN;  an  attribute  of  an  item)  is  based  on  the  current  PPBEES.  While  the  proposed 
system,  includes  all  the  needed  elements,  it  must  be  extended  to  perform  accounting 
functions. 


F.  advantages  of  the  system 

By  applying  the  proposed  system 

1.  The  Army  can  improve  one  of  its  logistics  objectives:  automat:,  data 
processing. 

2.  The  system  contributes  to  the  I’PBLTS  implementation  by  generating  timely 
and  accurate  reports  for  various  supply  units. 

3.  It  allows  for  more  elTective  utilization  of  personnel  time  by  shortening  the 
adnimi'^trative  process. 

4.  .More  accurate  records  can  be  maintained. 

5.  The  system  can  be  extended,  with  minimal  effort,  to  include  fund  accounting 
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V .  CONCLUSIONS 


A.  CONCLUSIONS 

1  he  propO'^cJ  system  is  a  user  friendly,  menu-driven,  modularly  designed 
database  management  system  focusing  on  the  supply  distribution  function  of  the  ROK 
Army  ditision.  It  will  reduce  investment  in  personnel,  and  material  and  generate 
timely  and  accurate  reports  serving  division  managers.  Tlie  ssstem  may  be  operated  b\ 
noMce  as  well  as  e.xperienced  personnel. 

To  deselop  this  system,  the  ROK  .Army  logistics  structure,  current  logistical 
management  methods,  and  problems  were  described  in  chapter  II.  The  same  chapter 
describes  current  computer  usages  in  the  ROK  .Army. 

The  third  chapter  includes  the  structure  of  the  database,  its  major  capabilities, 
and  benefits.  The  chapter  presents  the  fundamentals  of  databases  and  the  database 
management  system  used  in  developing  the  system,  i.e.  dBASEIll  PLUS. 

The  fourth  chapter  describes  the  proposed  system:  what  it  can  or  can  t  do  for  the 
logistics  control  management  in  the  ROK  .Army  division.  The  chapter  also  adresses 
the  benefits  of  the  implementation  of  the  proposed  system. 

Through  the  development  of  this  system,  the  author  achieved  the  primary  goal  of 
this  study  by  combining  the  knowledge  of  the  ROK  Army  logistic-  management, 
relational  database,  design  of  the  database  management  system,  and  programming 
tecliniques.  The  implementation  of  the  DB.MS  in  ROK  Army  division  should 
contribute  significantly  to  the  supply  effort. 

By  using  this  program,  the  ROK  Army  division  can  reduce,  the  current  volume  of 
paperwork  and  overtime  devoted  to  routine  tasks.  The  proposed  system  can  save 
personnel  and  material  resources,  thereby  freeing  these  resources  to  other  vital 
objectives  such  as  enhancement  of  the  combat  power. 


B.  FURTHER  STUDY 

In  this  thesis,  the  author  deals  only  with  the  distribution  function  from  among 
many  other  logistics  functions.  A  more  comprehensive  system  would  include 
accounting,  maintenance  tracking,  and  provisions  for  analyzing  transacton  records 


svstern. 


DifTerent  inventon.'  control  models  would  be  applied  to  enhance  the  database 
management  system.  Only  two  of  the  many  models  available  have  been  implemented 
in  this  thesis. 

Networking  and  interconnecting  this  system  with  available  mainframe  systems  is 
another  issue  not  addressed  in  this  thesis.  A  final  objective  is  to  tailor  this  system  for 
use  in  comahat  situation. 


APPENDIX  A 

STATISTICAL  CONSIDERATION 


The  material  in  this  appendix  is  extracted  directly  from  Tersinc 
[Rot.  3;  131-165. jpp  It  is  given  here  because  the  decision  of  safety  level,  reorder  point  in 
the  proposed  system  is  based  on. 

According  to  Tersine.  when  the  demand  is  probabilistic  (not  deterministic),  it  is 
necessary  to  rmnimizc  the  expected  total  cost  for  inventory  management.  If  the 
demand  distribution  is  continuous,  the  minimum  expected  total  cost  expression  is 
obtained  by  taking  the  derivative  of  the  total  expected  cost  with  respect  to  the  decision 
variable  and  then  setting  it  equal  to  zero. 

If  leadtime  demand  is  distributed  according  to  a  continous  probability 
distribution  f^M)  then  mean  leadtime  demand  is  given  by: 

M  =  Jo^'MaM)dM  (eqnA.l) 

and  the  standard  deviation  of  leadtime  demand  is  the  square  root  of  the  variance 
whicch  is  given  by: 

flMld.M  (eqn  A.2) 


Where: 

.\I  =  random  variable  for  lead  time  demand 

11m)  =  probability  density  function  of  lead  time  demand 

<y  =  standard  deviation  of  lead  time  demand 

IVI  =  mean  lead  time  demand 

The  probability  of  a  stockout  for  a  given  item  is  simply  the  probability  that  the 
demand  during  the  lead  time  will  exceed  the  reorder  point,  1  he  stockout  probability  is 
the  first  definite  integral  of  the  probability  density  function  of  demand  during  the  lead 
time  from  the  reorder  point  to  infinity. 

That  is: 


P(M>B)  =  P(s)  =  RMldM 


(eqn  A. 3) 


Where  ;  B  =  Reorder  point 

M  =  Random  variable  for  ieadtime  demand 
The  expected  stockout  quantity  during  the  lead  time  is  the  second  definite  integral  of 
the  probability  density  function  of  demand  during  the  lead  time  from  the  reorder  point 
to  infinity. 

That  is 

E(M>B)  =  f^(M-B)f(M)dM  (eqn  A.4) 

When  demand  is  normally  distributed,  the  reorder  point  can  be  obtained  from 
following  formula; 

B  =  M  +  S  =  M  +  Z<t  (eqn  A. 5) 

Where 

M  =  Mean  lead  time  demand  in  units 

S  =  safety  stock  in  units 

Z  =  Standard  normal  deviate  corresponding  to  the  desired  stockout 
probability 

(T=  Standard  deviation  of  lead  lime  demand. 

Knonn  stockout  cost  per  stockout  event 

The  proposed  system  assumes  that  demand  is  normally  distributed  and  lead  time 
is  constant  (that  is  realistic  for  many  items).  It  is  also  assumed  that  a  fixed  shortage 
cost  is  incurred  one  time  only  in  each  reorder  cycle  which  experienced  a  stockout 
situations.  This  cost  is  assumed  to  be  unaffected  by  the  number  of  units  or  requisitions 
which  are  backordered  during  a  reorder  cycle.  Since  the  historical  distribution  of 
demand  is  available,  the  safety  stock  can  be  determined  by  selecting  a  safety  level  that 
results  in  the  lowest  expected  cost.  It  is  easy  to  determine  the  safety  stock  using  this 
method.  The  objective  is  to  minimize  the  sum  of  the  cost  of  holding  the  safety  stock 
and  the  cost  of  the  stockouts.  The  danger  of  stockout  occurs  only  during  the  lead 
time.  There  are  R,  Q  lead  times  of  opportunity  for  a  stockout  to  occur  is  obtained  by 
taking  the  derivative  of  the  expected  annual  cost  of  safety  stock  with  respect  to  the 
reorder  point  and  setting  it  equal  to  zero. 

.Annual  cost  of  safety  stock  =  (holding  cost)  +  (stockout  cost) 


TC^  =  SH  4-  GR  Q(  J^R.VDdM)  (eqn  A.6) 
=  H(B  -  M)  +  GR  P(M>  B)  Q 


TC^  =  expected  annual  cost  of  safety  stock 
B  =  S+  M  =  reorder  point  in  units 
S  =  sal’cts  stock  inunits 

11  =  holding  or  carrying  cost  per  unit  per  year 

G  =  backordering  cost  per  outage 

R=  average  annual  demand  in  units 

Q  =  lot  size  or  order  quantity  in  units 

flM)=  probability  density  function  of  lead  time  demand 

M-  average  lead  time  demand  units 

If  the  derivative  of  the  expected  annual  cost  of  safety  stock  with  respect  to  the 
reorder  point  is  taken  and  set  equal  to  zero,  the  following  relationship  is  obtained; 

f(B)  =  HQ  GR  (eqn  A. 7) 

However  for  normal  distribution  the  optimum  reorder  point  is  not  obtained  from 
above  equation,  since  the  the  ordinate  fIB)  undergoes  a  change  of  scale  when  it  is 
transformed  to  the  standard  normal  distribution.  Thus,  if  we  are  to  find  fiB).  we  must 
find  here  the  standard  normal  distribution  has  an  ordinate  of  fiB)  x  <t  The  standard 
normal  deviate  Z  for  the  optimum  stockout  probability  can  be  obtained  directly  from 
the  standard  normal  table. 

The  optimizing  safety  stock  can  be  obtained  from  normal  database  and  the 
following  formulas; 

Z  =  (B-  M):  <T  =(B-  {D  X  L));(  (T^)  ^T=  S,((t  x  ^T)  (eqn  A.8) 

S  =  Z(T  =  Z  (Tp  y/~U  (eqn  A. 9) 


where 


Z  =  standard  normal  deviate 
B  =  Dxl  +  S  =  reorder  point  in  units 
M  =  D  X  L  =  average  lead  time  demand 


<T  =  Standard  deviation  of  lead  time  demand 
L  =  lead  time 
S  =  safety  stock  in  units 

=  standard  deviation  of  demand  for  a  time  period  other 
than  the  lead  time. 

Service  level  is  given  instead  of  stockout  cost  per  outage 

Most  of  the  time  in  the  ROK  .Army  stockout  costs  are  very  dilllcult  to  obtain 
because  of  its  accounting  system.  Under  these  circumstance,  using  set  service  level  is  a 
more  rational  way  of  determining  safety  stock.  .A  service  level  indicates  a  level  of 
ability  to  meet  customer  demand  from  stock. 

The  establishment  of  a  service  level  is  a  subjective  management  judgement  that  is 
based  on  convenience  rather  than  scientific  justification.  The  choice  by  management  of 
service  level  implies  a  cost  attributed  intuitively  or  indirectly  to  stockout. 

Example:  If  the  annual  demand  for  an  item  is  normally  distributed  with  a  mean  of  8000 
units  and  standard  deviation  of  1000  units,  what  should  the  safety  stock  and  reorder 
point  be  if  the  lead  time  is  1  2  month?  (assume  management  has  decided  it  is  willing  to 
he  out  of  stock  in  o  of  the  order  cycles) 

From  the  normal  distribution  table,  Z=  1.64  corresponding  to  a  5°/o 
one  tail  risk  of  stocking  out. 

D  =  R  12  =  667 

<jp=  (T  vTnTr=  288 

B  =  .Mg  =(  X  L)+  1.64  <Tp  v'"r=669 
S  =  M  -  X  L  =  335 

a  — 

Where  ;  R  =  Average  annual  demand 

M^  =  B  =  lead  time  demand  at  acceptable  service  level  in  units. 

The  safety  stock  is  335  units,  and  the  reorder  point  is  669  units. 


APPENDIX  B 
DATA  STRUCTURE 


1.  OVERMEVV 

There  are  seven  interrelated  files  in  the  proposed  system.  The  PROPTRT'l'  and 
ASL  lile,  PROPERTY. DBF  and  AST, DBF.  are  used  in  the  inventory  control 
management.  They  contain  for  each  item  its  stock  number,  its  attributes  and  its 
inventory  control  criteria. 

The  main  files  for  transactions  and  report  and  statistics  generation  are  the 
BATCH  .MASTER,  and  STOCKOUT  files  -  BATCFl.DBF,  .MASTER.DBF, 
STOCKOLT.DBF.  The  batch  file  is  a  depository  of  all  the  transactions  arriving  in  one 
day.  .\t  the  end  of  the  day.  transactions  are  processed  and  the  demand  is  satisfied 
based  on  the  transaction  priority,  priorities  are  determined  by  the  unit's  Standard 
Operating  Procedure! SOP.)  Transactions  are  moved  to  either  the  master  or  the 
stockout  files. 

These  three  files  contain  transaction  specific  data.  .As  detail  files, they  define  only 
those  elements  defining  a  transaction  and  do  not  include  global  or  unchanging 
elements. such  as  the  customer's  description  or  stock  item's  nomenclature.  Global 
elements  are  referenced  by  a  unique  identifier. 

2.  DATA  FILES 

a.  Master 

The  elements  in  the  master  file  are  SN,  Cl,  VN,  REQNO,  QTY,  T'lPE. 
LNITCOSr.  .MISC,  D.ATE.  and  POSTED.  The  SN  field  identifies  the  stock  number 
of  each  item  on  the  transaction  and  is  the  key  to  the  items  file.  Cl  contains  the 
customer  number  and  is  the  key  that  link  a  transaction  to  the  customer  file  which 
contains  data  on  customer  and  supplier.  SN  and  Cl  link  the  records  to  the  other 
source  files.  'VN  contains  the  voucher  number  of  the  transaction,  and  REQNO  is  the 
requisition  number. 

The  remaining  fields  --QTY,  UNITCOST,  DATE,  contain  the  quantity,  unit 
price,  and  date  of  the  transaction.  The  TYPE  lield  contains  the  transaction  type  which 
is  shown  in  chapter  11,  Fig  2.2  transaction  procedure.  Table  4  in  this  appendi.x 
includes  a  detail  description  of  the  contents  of  the  various  elements. 


TABLE  3 

DATA  STRUCTURE 


Database  Field  name 


Master  ( SN ,  C I , VN , REQMO , QTY , TYPE , UM ITCOST , MISC , DATA , POSTED ) 

Primary  =  SN  keys  =  Cl, TYPE 
Record  on  all  transactions. 


Property  ( SN , SERI ALNO , MM , UNIT , ONHAMD , UNITCOST , TVALUE , 

ESSENCE, CLASS, DATE) 

Primary  =  SN 

Data  on  characteristics  of  stock  item. 


ASL  (SN,ROP,SL, ROOST, RCN, DATE) 

Primary  =  SN 

Data  on  transaction  control  measures. 


Customer  (Cl ,CDESC, ADDRESS, ZIPCODE, FUND, EXPEND, 

PRIORITY, DATE) 

Primary  =  Cl 

Data  on  customer's  record. 


S  tockout  ( SN , Cl , VN , REQNO , TYPE , OTY , UNITCOST , DATE , MISC , POSTED ) 

Primary  =  SN  keys  =  Cl,  TYPE 
Records  on  all  stockout  transaction. 


Batch  ( SN , Cl , VN , REQNO , TYPE , QTY , UNITCOST , DATE , MISC , POSTED ) 

Primary  =  SN  keys  =  Cl, VN, REQNO 
Intermediate  records  on  transactions. 


Normal  (TZ,POFB,POFM,EOFZ) 

nokey 

Table  of  normal  distribution. 


b.  Property  file 

The  property  file  contains  all  the  information  pertinent  to  each  stock  number. 
The  first  field,  SN,  is  the  key  for  accessing  this  file.  The  ONHAND  and  UNITCOST 
are  quantity  on  hand  and  the  unit  cost  respectively.  For  other  fields  refer  to  the  Table 


c.  ASL  file 

The  ASL  file  contains  all  the  information  on  the  control  measures  for  each 
item.  The  first  field,  SN,  is  the  key  for  accessing  this  file.  RO  field  is  the  requisition 
objective  defined  in  chapter  two.  ROP  is  the  reorder  point,  whenever  the  ONHAND 
on  property  file  reaches  to  this  point,  the  system  issues  a  request  for  issue  to  the 
logistics  support  command  automatically.  SL  is  safety  level  used  in  calculating  the 
appropriate  requisition  objective. 
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d.  Customer  file 

The  customer  file,  CL'STOMER.DBF.  whose  structure  is  shown  in  lable  3. 
contains  all  the  information  on  both  customers  and  suppliers.  The  customer  ID  iCI)  is 
the  primary  key  for  the  ^.ustomcr  file,  allowing  quick  access  to  a  particular  customer 
record.  The  field  CDESC  contains  the  description  of  the  Cl.  The  two  fields  FUND 
and  E.XPFND.  althought  not  used  by  the  system,  are  included  in  this  file.  Those  fields 
provide  the  flexibility  to  extend  the  system  and  add  fund  accounting  modules. 

e.  Stockout  file 

The  stock-out  file.  STOCKOUT.DBF,  contains  the  Stock  Out  items.  The 
fields  SN  and  Cl  link  the  file  to  the  property  file  and  customer  file.  The  VN  field 
defines  the  transaction. 

f  Batch  file 

Ihe  batch  file  holds  all  transactions  for  the  day.  At  the  end  of  the  day, 
transactions  are  processed  and  fulfilled  based  on  their  priority.  .As  a  result  of  the 
processing  transactions  are  transfered  to  either  the  master  or  the  Stock  Out  files.  The 
field  are  the  same  as  master  file. 

g.  Normal  file 

The  normal  file,  NORMAE.DBF,  contains  the  values  of  the  normal 
distribution,  which  provides  the  Z  value  corresponding  to  sigma.  The  field  EOFZ 
contains  the  expected  number  of  stockout  with  the  probability  of  stockout. 

3.  INDEX  FILES 

The  proposed  system  maintains  a  number  of  index  files,  each  database  file 
(except  normal. dbO  uses  at  least  one  index  as  a  primary  index  for  data  retrievals  during 
execution  of  the  program.  In  addition,  some  files  have  additional  indc.xes  used  by- 
programs  in  printing  reports  or  internal  operations. 


TABLE  4 

DATA  DICTIONARY 


Field  name  Type  Width  Dec  Location 


Address 

Cdesc 

Class 

Date 

Essence 

Expend 

Fund 

Fundoh 

Misc 

NM 

Onhand 

Ost 

Outdate 

Priority 

Qty 

RCN 

Refilldate 

ReqNO 

RO 

ROP 

Serialno 

SL 

SN 

lvalue 

Type 


Character 

Character 

Character 

Date 

Logic 

Numeric 

Numeric 

Numeric 

Logic 

Character 

Numeric 

Numeric 

Character 

Character 

Numeric 

Numeric 

Date 

Character 

Numeric 

Numeric 

Character 

Numeric 

Character 

Numeric 

Character 


60  0  Customer 

Address  of  a  customer. 

30  0  Customer 

Common  name  of  the  customer. 

(Ex,  The  150  division  1002  regiment) 

4  0  Property 

Material  classification. 

(Ex.  3  for  fuel) 

8  0  All  databases 

System  date,  or  real  date  of  the  recod. 

1  0  Property 

Combat  essential  item. 

10  2  Customer 

The  amount  of  $  spent  by  customer. 

10  2  Customer 

The  allowed  fund. 

10  2  Customer 

The  onhand  amount  of  $. 

1  0  Master, Batch 

Availability  to  reuse. 

16  0  Property 

Description  of  the  stock  number. 

(Ex.  Hammer,  . . . ) 

5  0  Property 

The  amount  of  thee  item  in  storage. 

3  0  ASL 

Order  shipping  time  (lead  time  to  issue). 

4  0  Stockout 

Stouckout  date. 

1  0  Property 

Issue  priority  of  the  customer's. 

5  0  Master,  Batch,  Stockout 

The  quantity  involved  in  the  transaction. 

4  0  ASL 

Resource  control  number. 

(Ex.  1289  for  Rice) 

8  0  Stockout 

Refill  date  of  the  stockout  item. 

16  0  Batch,  Stockout,  Master 

Request  number  composed  of  Zulu  date 
and  sequential  number  of  the  order. 

5  0  ASL 

Requisition  objective  of  a  stock  item. 

RO  =  SL  +  EOQ 
4  0  ASL 

Reorder  point  of  a  stock  item. 

ROP  =  SL  +  OST  X  demand  rate 
10  0  Property 

Serial  number  of  end  item. 

4  0  ASL 

Safety  level. 

SL  =  OST  X  possibility  of  stockout 
16  0  Master,  ASL,  Property, 

Stockout,  Batch 

Stock  number  which  is  specified  to 
every  stock  item. 

10  2  Property 

Total  $  value  of  onhand  quantity. 

2  0  Master,  Stockout,  Batch 

Transacton  type. 

(Ex.  RD  =  request  for  issue  to  division 
from  organizational  unit) 
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TABLE  4 

DATA  DICTIONARY  (CONT  D.) 


Unit 

Unitcost 

Zipcode 

Character  4 

Numeric  8 

Character  16 

Character  6 

0  Property 

Heasureing  unit  of  the  item. 

(Ex.  Cm,  Kg,  Each,  Drum . ) 

2  Master,  Property, 

Stockout,  Batch. 

Unit  price  of  each  item. 

(Ex.  $20.00  for  hammer) 

0  Master,  Batch 

Voucher  number. 

(Ex.  1500QM-0012-8309) 

0  Customer 

Zipcode  of  a  customer's  address. 

TABLE  5 

INDE.X  FILES 

File 

Index 

key 

Index 

name 

Description 

Property 

SN 

Snproper 

Index  by  stock  number 

Customer 

Cl 

Cicust 

Index  by  customer's  ID 

ASL 

SN 

Inasl 

Index  by  stock  number 

Batch 

SN+CI 

Cl 

Sncibat 

Cibat 

Index  by  stock  number  and 

Customer's  ID  (Used  in  transaction  issue  list) 
Index  by  customer's  ID. 

Stockout 

SN+Cl 

Stockout 

Index  by  stock  number  and  customer's  ID 
(used  in  retrieve  stockout  item  which  is 
caused  by  customer) 

Master 

SN+CI 

+TyPE 

Sctmast 

Index  by  stock  number 

and  Customer’s  ID  and  transaction  tjpe. 

CI+SN 

Csmast 

Index  by  customer  ID  and  stock  number 
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APPENDIX  C 
SYSTEM  STRLCTL  RE 


1.  OVERVIEW 

Tile  proposcii  system  consists  of  four  modules  MANAGFL,  TR„\NSACT. 
REPORTS  and  AN'AL^'SIS  performing  the  following  four  functions  file  management, 
transaction  processing,  report  generating  and  anahsis.  There  are  a  numher  of 
subroutines  and  performing  functions  common  to  one  or  more  modules.  The  system 
strucutre  is  shown  in  Figure  C.l  The  menu  system  designed  for  this  application 
corresponds  to  the  gray  portion  on  the  figure.  Appendi.x  D  (User's  .Manual)  contains 
detailed  instructions  on  how  to  use  the  system.  This  appendix  will  concentrate  on 
describing  the  modules. 

2.  PM.MAIN 

P.M.MAIN  is  the  normal  starting  point  of  the  program  and  it  displays  the  main 
menu  and  stores  tiie  last  request  and  voucher  numbers  issued  by  the  division.  The 
menu  is  used  to  to  select  one  of  the  four  main  modules  as  shown  in  Figure  C.2 

3.  M.ANAGFL 

This  module  is  designed  for  file  management  and  contains  ten  submodules  and 
several  screen  formats.  During  the  initial  system  loading,  the  user  needs  to  enter  data 
into  Property.  ASL,  and  Customer  files  using  the  ADDPROP,  ADD.ASL  and 
.\DDPROP  submodules.  During  routine  operations,  the  user  may  correct  entered 
records  in  Property.  /\SL,  and  Customer  files  by  using  EDITPROP.  EDITASL.  and 
EDITCUST  respectively.  The  user  may  correct  transactions  using  EDFF.M.AST  and 
EDITBAT. 

The  flow  chart  in  Figure  C.3  illustrates  the  procedure  of  ADDPROP. prg.  Since 
the  file  management  procedures  are  closely  related,  only  one  flow  chart  is  presented  as 
an  illustration. 

The  Manageq  provides  queries  on  files.  The  user  may  consult  the  present  list  of 
stock  numbers  by  stock  number,  material  class,  or  all  stock  items.  An  example  is 
shmvn  on  the  Figure  C.4 
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INVENTORY 
MANAGEMENT  SYSTEM 
(PMAIN) 


TRANSACT 
• - f - 


TRSTOCKRI) 

W  AOOCl>ST 


TRBATCH 

sr  •  mP 

TRI. 

3SUE 

TKRKQLST 

virrrr 


SETUP 


W  TRSTOCK 


TURNTOLC 


- 

TRTU 

RNIN 

[ 

■  AnocusT 

TRTUNLST 

-\  TRCANCEL 


MYFILE 


PMMENU 


REPORTS 


-4  RPTSR 


J 


PRINTER  n  select 


PRINTER 


RPOST 

S 


SELECT 


ANEOQ 


H  RPEIS 


I 


PRINTER  h  SELECT 


PRINTER 


RPSOR 

r' 


ANPROC 


ALL 


CLASS 


X 


STOCK  NO 


PRINTER 


_ 1 _ 

ANALYSIS 

AM. 

— 

KADT 

— 

MANAGEFL 
— —  1 - 


l-l  EDITASL 
4 


hi 


QUERY 

L 

.MANAGEQ 

ADDASL 

ADDPROP 

•iSt 

•  LUlfPHO 

J  PMOP  tmi 

A  I)  DC  U  ST 

ASl 

ID'TPRO 

PROP  l<rn 

EDITBAT 


■T  rli.IBAr 


H  EDITCUST 


1  tOilCu^I 


H  EDITMAST 


H  EDITPROP 


Figure  C.l  Detailed  system  structure 
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i 


i 


inventory  nanaqeacnt  Syste 


JLj^^Tra^iaac^i^nJ - 

Routine  transaction: 
Request  for  issue 
Receive  item 
Query  on  transaction 


3;  Report  | - - 

Report  Generation: 
Transaction  status  report 
Stockout  report 
Essential  item  stockout 
OST  report,  Fund  status 


^2j^^Manaqe^^^^leJ - 

Management  of  file: 
Add 

Edit  (delete, change) 
Query  on  files 


Analysis  of 
Reorder  point 
Lead  time 

Requisition  Objective 
Safety  Level 


■  (Bnter  Selection  (1  -  4,  S  to  change  date,  or  0  to  exit:  :] 

Today  is  11/18/87  (ZULU: 7322) 


Figure  C.2  Pmmain  screen. 


4.  TRANSACT 


Tliis  module  includes  ten  submodules  corresponding  to  the  type  of  transaction, 
and  query  on  transaction.  The  overall  data  flow  is  shown  in  the  Figure  4.3  This 
module  is  the  main  procedure  and  contains  the  analysis  and  report  programs.  The 
main  menu  for  this  module  is  shown  in  the  Figure  C.5 

a.  StockRD 

This  submodule  is  designed  for  transaction  type  RD  •  request  for  issue  to  the 
division  from  the  organizational  unit.  It  stores  input  transactions,  e.g.  request  for  issue 
and  turn-in,  in  a  batch  file.  The  submodule  checks  the  validity  of  both  the  stock 
number  and  the  Customer  ID.  If  either  is  invalid,  or  the  number  is  not  included  in  the 
apprporiate  parent  file,  i.e.  Property  and  Customer  files,  the  program  will  prompt  the 
user  to  update  the  parent  files  prior  to  accepting  the  entry.  In  other  words  no 
transactions  is  accepted  without  a  valid  SN  and  Cl.  The  Figure  C.6  illustrates  the 
procedure. 

b.  TRbatch  and  TRissue 

These  submodules  arc  the  batch  file  processing  procedures.  They  check 
whether  the  ONHAND  quantity  satifies  the  total  quantity  requested  in  that  day.  If  the 
ONHAND  is  less,  transactions  are  satisfied  based  on  their  priority.  The  submodules 
generate  a  request  for  material  when  the  ONHAND  quantity  reaches  the  render  point. 


Start 

aooprop 


Checking  for  unique  SN 
Add  new  SN  in  ASL 


> 


Query  on  Stock  number 

Options 

1.  Stock  number 

2.  Class  Enter  Class  Number:  7 

3.  All  [0]  for  class  10 

4.  Return  to  main  menu 
Enter  Option:  2 


Page  No.  1 

11/16/87 

Stock  number  Listing 


Stock  number 

Nomenclature 

Price 

Onhand 

Requisiton 

Reorder 

Safety 

Objective 

Potint 

Level 

*  Material  Class 

7 

7520-00-281-5911 

Basket,  Waste 

10.00 

180 

180 

50 

20 

7510-00-984-5787 

Binder 

12.00 

93 

190 

10 

3 

7920-00-141-5452 

Handle,  Wood 

1122.00 

438 

10 

3 

2 

7520-00-904-1268 

Marker 

2.00 

200 

290 

100 

30 

7510-00-022-8926 

Pencil 

1.00 

520 

7000 

100 

80 

7510-00-543-6792 

Refill 

0.20 

1120 

1800 

900 

45 

7930-00-141-5888 

Wax,  Floor 

10.00 

30 

500 

25 

15 

7940-00-168-3366 

Widget 

120.00 

23 

0 

0 

0 

7777-77-777-7777 

Test  item7 

26.00 

5085 

500 

280 

140 

Figure  C.4  Example  of  MANAGEQ  module. 

Finally  they  are  responsible  for  aggregating  all  requests  from  a  single  customer  into  a 
one  issue  list.  Figure  C.7  shows  their  flowchart. 

c.  TRreqIst 

.Module  TRREQLST  is  used  for  special  events,  that  is,  the  manager  may  be 
requested  to  prepare  for  special  events  in  the  division  such  as  training  or  unplarmed 
construction.  This  module  issues  a  warning  to  reflect  that  the  input  transaction  is  not 
a  regular  one. 

d.  TRstock 

This  module  designed  for  type  'IL'  transattions,  ic  issue  from  logistics  support 
command.  This  module  validates  the  customer  or  supplier  ID  and  the  item  SN  as  one 
of  the  authorized  supplier,  initial  supplies,  and  ASL  item.  A  second  check,  determines 


I 

4 
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(Transaetion  routin* 


r  Typ«  ot  tranaaction 


1  I  RequasC  for  iasua  to  Olv 

2  :  laaua  to  cuatoaar  froa  Olv 

3  I  Request  for  turn-ln  to  Oiv 

4  I  Receive  froa  LSC 

5  I  Request  for  issue  to  LSC 

6  I  Request  for  turn-in  to  LSC 

7  :  Cancel  RL  to  LSC 

8  I  Cancel  RO  to  Oiv 

9  :  Ouery  on  transaction 


(Enter  Selection  froa  (1  - 


'  Source 
Stock  nuaUier  t 
Cuatoaar  t 


Inforaation  - 

Today  ia - 12/02/87 

(Zulu  I  7336) 

Last  VM  j  1500QM-0031-7317 
Laat  Reqno  i  lSOOOM-0014-7317 

9.  or  0  to  return)  :li  | 


Figure  C.5  Transaction  menu  screen. 

whether  the  item  received  is  a  stock  out  item.  If  it  is,  the  delayed  issue  list  is  processed, 
and  all  related  recording  is  posted  (STOCKOUT.DBF,  .MASTER.DBF).  This  process 
is  shown  in  Figure  C.8 

e.  TURTOLC,  TRTURNIN  and  TRTUNLST 

Thesa  submodules  accepts  items  returned  from  units.  Tum-in  flow  chart  is 
shown  in  Figure  C.9 
f  Query 

This  module  generates  transactions'  reprots.  Queries  such  as  how  many 
transactions  have  occurred  in  given  period  for  specified  customer,  stock  number, 
material  class,  or  all  stock  number,  may  be  answered.  Figure  C.IO  shows  the  screen 
menu  for  this  submodule. 
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Figure  C.6  TRSTOKRD  (Request  to  division)  module  flow  chart 


START 

(TURNTULC) 


S4lt9  Tracking 


Opciona 

1.  Octail  Salas 

2.  SooBtary  Salas 

3.  Oaeail  Cuscour  Salas 

4.  Suousary  Cuscoaar  Salas 

5.  Racurn  eo  main  aanu 
Bneac  Option:  1 


Entar  paciod  for  salas  tracking  (01/01/87  -  01/01/8  ) 


Paga  No.  1 
11/16/87 

Salas  Transaction  Tracking 


Oatail 

Salas 

Custonar  Quantity 

Prica 

Total 

ID  1 

**  Stock  nuiBbar 

1111- 

•11-111-1111 

1500 

7 

10.00 

70.00 

1500 

88 

10.00 

880.00 

1509 

1 

10.00 

10.00 

1509 

100 

10.00 

1000.00 

1509 

100 

10.00 

1000.00 

1509 

10 

10.00 

100.00 

1509 

10 

10.00 

100.00 

1509 

40 

10.00 

400.00 

3333 

95 

10.00 

950.00 

5090 

100 

10.00 

1000.00 

5093 

100 

10.00 

1000.00 

••  Subtotal  •• 

651 

6510.00 

**  Stock  nuBbar 

2222- 

22-222-2222 

1500 

97 

10.00 

970.00 

1500 

97 

10.00 

970.00 

1504 

100 

2.00 

200.00 

1507 

10 

2.00 

20.00 

1508 

200 

2.00 

400.00 

••  Subtotal  •• 

504 

2560.00 

*■  Stock  nuabar 

3333- 

33-333-3333 

1900 

25 

0.00 

0.00 

1509 

2 

102.00 

204.00 

1509 

2 

102.00 

204.00 

5012 

2 

0.00 

0.00 

5014 

1 

102.00 

102.00 

5032 

2 

102.00 

204.00 

••  Subtotal  •• 

34 

714.00 

Figure  C.  10  Example  of  Query  on  transaaion  module. 


5.  REPORTS 


This  module  consists  of  RPTSR,  RPOST,  RPEIS,  RPSOR  for  transaction  status, 
order  shipping  time,  essential  item  stockout,  and  stock  out  reports  respectively.  Each 
module  creates  temporary  files  and  erases  them  at  the  end  of  session.  The  selection 
screen  in  this  module  is  showm  on  the  Figure  C.ll  followed  by  examples  from  the 
various  reprots, 

r  R  E  P  0  R  T  S  I 


Type  of  Reports 


Information 


1  t  Transaction  Status  Report 

(DA  form  3183) 

2  i  Stockout  Report 

(DA  form  3184) 

3  :  OST  Report 

(DA  form  3185) 

4  i  Combat  Essential  Item 

Stockout  Report 
(DA  form  3186) 


(Enter  Selection  from  (1  -  4,  or 


Last  TSR  Report  Date 
11/12/87 

Today _ 11/16/87(7320) 


Biginning  Date  -  Ending  Date 


(  /  / 


/  /  ) 


Figure  C.l  I  Report  module  menu  screen. 
Rerfer  to  the  Figure  C.12,  Figure  C.13  and  Figure  C.14 


START 

(RPOST) 


/  Tell  "Select"  / 


/  Get'Selea"  / 


Figure  C.13  RPOST  (Order  shipping  time  report)  module  flow  chart 


start 

(RPSOR) 


Figure  C.  14  RPSOR  (Stockout  report)  module  flow  chart 
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6.  ANALYSIS 

This  module  consists  of  three  procedures,  ANLEADT,  ANEOQ,  and  ANPROC 
and  is  used  to  calculate  the  average  lead  time  of  any  stock  item.  The  Average  Lead 
Time  is  used  in  calculating  safety  level,  reorder  point,  and  finally  economic  order 
quantity.  The  module  .ANPROC  has  many  procedures  which  contains  zulu  date, 
average,  standard  deviation,  and  variance.  These  procedures  are  called  from  the 
AN.ALYSIS  module  whenever  needed.  The  data  flow  in  this  module  is  shown  in 
chapter  three  limited  analysis  section.  The  detailed  process  is  in  the  flow  chart  in 
Figure  4.5  The  first  screen  of  this  module  is  shown  on  the  Figure  C.  15 


ANALYSIS  OC  TRANSACTION 


Today  i  11/16/87 


THIS  SYSTEM  USES  THE  FIXED  ORDER  SIZE  SYSTEM  WITH  PROBABILISTIC 
MODEL.  THE  FIXED  ORDER  SIZE  SYSTEM  IS  COMPLETELY  DEFINED  BY  THE 
ORDER  QUANTITY  [Q|  AND  REORDER  POINT  (Bl.  THE  RISK  OF  STOCKOUT 
OCCURS  AFTER  REORDER  POINT.  TO  GET  IQ1,IB1,  YOU  HAVE  TO  DECIDE 
SERVICE  LEVEL,  OR  STOCKOUT  COST  PER  UNIT.  THIS  SYSTEM  ASSUMED 
BACKORDER  CASE  WITH  SERVICE  LEVEL  INSTEAD  OF  LOSTSALES  CASE. 

Enter  itoctc  numoer  »  -  -  - 

Enter  time  period  you  want  to  test(  01/01/87  -  12/31/87  ) 

Begin  End  date 


Leave  BLANK  any  space  to  Exit 


Figure  C.  15  Analysis  module  screen. 
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APPENDIX  D 
USER'S  MANUAL 


1.  INTRODUCTION 

1  he  proposed  system  is  for  the  manager  who  works  at  the  ROK  Army  division 
or  lower  level  logistics  management.  It  is  written  in  dB.XSElII  Plus  progranuning 
language.  Routine  transaction  handling,  transaction  tracking,  reports  generation,  and 
limited  analysis  on  the  transaction  records  can  be  accomplished  with  this  system. 

The  proposed  sy  stem  consists  of  three  diskettes.  One  contains  the  soltware  code 
developed  in  this  thesis,  the  other  two  are  dB.XSTIlI  plus  system  diskettes. 

a.  Requirements 

The  proposed  system  runs  on  the  IB.Vl  PC  family  of  computers,  including  the 
XT  and  .\T,  along  with  all  true  IBM  compatibles.  DB.XSEIII  PLUS  requires  the 
following: 

1.  The  dB  AS  El  1 1  PEL'S  program  disks  and  manual. 

2.  An  IBM  PC.  IB\[  XT.  COMPAQ,  or  other  100  percent  IBM  PC- 
compatible  computer  with  a  monochrome  or  color  monitor. 

3.  MS-DOS  or  PC-DOS 

4.  .dt  least  256k  of  memory.  5I2k  or  more  is  suggested. 

5.  Two  360k  floppy  disk  drives  or  one  360k  drive  and  a  hard 
disk  drive,  .d  hard  disk  is  suggested. 

6.  ,d  printer  with  at  least  SO-column  capability  is  suggested. 

[Ref  8:  p.  12] 

b.  Organization 

The  remainder  of  this  manual  is  divided  into  two  sections.  Getting  Started, 
describes  the  contents  of  the  proposed  system  and  how  to  install  it.  Working  with  the 
Proposed  System,  describes  how  to  operate  the  system. 

2.  GETTING  STARTED 

The  code  of  proposed  system  occupies  one  diskette  only.  Since  the  proposed 
system  is  not  compiled,  it  needs  the  dB.'XSEIII  plus  system  diskettes.  The  proposed 
system  assumes  that  dBASEIIl  plus  is  available  in  a  subdirectory  DB.ASElll.  So 
install  Dbase  III  Plus  in  a  subdirectory  called  DBASEIIl,  see  Dbase  III  manual  for 
instructions. 


SCR 

EDBAT 

BATCH 

ASL 

EOITMAST 

EDITPROP 

MAST 

CUST 

PROP 

EDITCUST 

EDITASL 

TURNIN 

CANCMAST 

FMT 

PROP 

EDITPROP 

EDITMAST 

EDITCUST 

EOQ 

EOITBAT 

MASKMENU 

TURNIN 

BATCH 

EOITASL 

CUST 

MAST 

ASL 

CANCMAST 

FRM 

TRANRPl 

TRANRP2 

TRANRP3 

TRANRP4 

CUSTRPl 

STOCKRPI 

NOX 

SNPROPER 

CICUST 

INASL 

CIBAT 

STOCKOUT 

SCTMAST 

SNCIBAT 

eSMAST 

OTHERS 

INVENTOR. 

CAT 

MYFILE.MEM 

CONFIG. DB 

CONFIG.SYS 

If  vour 

any  of  previous  tiles,  it  will  not  work. 

.After  confirming  the  e.xistence  of  all  the  files,  you  are  ready  to  install  the 
system  in  your  computer. 

It  is  reconunend  that  you  install  in  a  subdirectory  called  CONTROL  in  the 
DB.ASE  III  subdirectory.  To  create  the  subdirectory,  insure  that  you  are  in  the 
DB.ASE  III  directory  and  type; 

MD  CONTROL 

Change  directory  to  CONTROL'  by  typing  cd  dBASElll  CONTROL  and  insert  the 
proposed  system  diskette  in  drive  .A,  and  copy  all  files  into  C;  using  the  following 
commands; 

CD  dBASElll  CONTROL 
COPY  A:N*  C: 

CD 

Now  you  are  ready  to  start. 


a.  Configuration 

Before  installing  the  system,  ensure  that  tlie  conlig.sys  file  in  your  system  contains  the 
follou  ing  commands: 

BUFFERS  =  15 
FILES  =  20 

If  your  sc  stem  does  not  contain  a  config.sys  file,  you  ma>'  copy  it  Irom  the  Dbase  111 
system  diskette. 

'i  ou  also  need  a  config.db  file  in  your  dBASElll  subdirectory  with  command 
TVPEllEAD  =  20".  If  you  do  not  have  this  file,  copy  it  from  the  Dbase  111  system 
diskette.  If  you  have  config.db  add  the  command  and  erase  config.db  file  from  the 
proposed  system. 

you  can  create  either  or  both  files  using  the  DOS  editor  or  the  following 
commands; 

Copy  con  config.db 


TYPEHEAD  =  20 

■^'ou  may  want  to  get  into  the  system  directly  from  the  bootup.  If  this  is  the  case,  add 
the  following  commands  to  your  autoexec.bat  file. 

PATH  =  C;  ;  DOS;  dBASElll 
CD  dBASElll 
DBASE 
CD 

Now  vou  are  ready  to  install  the  proposed  system  in  your  computer, 
b.  Summary  of  the  proposed  system  disk. 

The  thesis  system  disk  contains  the  following  programs  and  files; 


Extension 

DBP 

ASL 

CUSTONER 

NORMAL 

MASTER 

STOCKOUT 

BATCH 

PROPERTY 

PRO 

ANALYSIS 

ANLEAOT 

TRREGLST 

RPTSR 

AOOPROP 

EDITBAT 

MANAGEQ 

SELECT 

ANEOQ 

REPORTS 

TRBATCH 

ADDASL 

TRTURNIN 

RPEIS 

PRINT 

TRCANCEL 

RPOST 

RPSOR 

TRISSUE 

EOITCUST 

TRTUNLST 

EOITMAST 

CONTINUE 

ANPROC 

PHAIN 

TRANSACT 

TRACKING 

EDITPROP 

TURNTOLC 

MANAGE FL 

PFtlEMU 

TRSTOCK 

SETUP 

A00CU5T 

EOITASL 

TRSTOKRO  PRINTER 


3.  WORKING  WITH  THE  PROPOSED  SYSTEM 

At  the  DBASE  III  prompt,  type  "DO  PMAIN"  to  get  the  main  menu  in 
Figure  D.l,  the  starting  point  of  the  system.  At  the  main  menu,  you  may  execute  one 
of  five  actions.  Options  1  thru  4  will  start  one  of  the  four  program  modules.  The  fifth, 
initiated  by  typing  5,  allows  you  to  change  the  system  date. 


Today  i>  11/18/87  (ZULU; 7322) 


Figure  D.l  Main  menu(PMAIN). 
a.  Routine  transaction 

You  have  reached  this  point  by  choosing  option  1  from  the  main  menu.  This 
submodule  allows  to  enter  transactions  and  follows  the  same  procedures  as  the  division 
supply  support  action  among  logistics  support  command  and  organizational  units. 

There  are  nine  options  on  the  menu  screen,  sec  Figure  D.2 

1.  Request  for  issue  from  a  customer 

This  is  the  procedure  to  accept  a  request  for  issue  from  your  customer  and 
you  reach  this  point  by  choosing  option  I  from  the  Routine  Transaction  Menu.  This 
screen  is  shown  in  Figure  D.3 

The  program  will  check  the  validity  of  the  customer  and  stock  numbers.  If 
either  is  invalid  the  program  will  not  accept  it  and  it  will  prompt  you  to  check  its 
validity  or  add  it  to  the  appropraitc  file. 


Figure  D.2  Routine  transaction  menu  screen. 

Enter  the  customer  and  stock  numbers  and  quantity  required.  The  menu 
will  prompt  you  for  additional  items,  and  the  program  will  generate  a  request  number. 
For  additional  customers  change  the  customer  s  code  and  follow  the  same  procedure. 

2.  Issue  to  the  customer 

This  program  will  generate  an  issue  list  for  each  customer.  You  have 
reached  it  by  choosing  option  2  from  the  transaction  routines.  This  procedure  will  be 
e.xecuted  once  ever}'  day  .  The  system  will  integrate  all  of  the  request  for  the  day  to  get 
the  allowance,  and  consult  the  availability  of  the  item  in  stock.  If  an  item  is  short  to 
meet  the  requests,  it  will  follow  the  priority  to  issue,  then  report  the  request  for  issue  to 
the  logistics  support  command. 

You  may  get  a  print  out  if  you  so  desire.  Examples  of  the  reports  are 
shown  in  Figure  D.4 

3.  Request  for  turn-in 

This  procedure  handles  requests  for  turn-in  from  a  customer.  You  have 
reached  this  option  by  entring  3  from  the  Routine  Transaction  Menu.  The  screen  is 
shown  in  Figure  D.5,  Enter  the  required  elements  and,  when  prompted,  prepare  the 
printer.  An  example  of  the  output  is  presented  below  the  screen. 


Requested  From  :  Division  aviation  bn 

Send  To  ;  The  150  Infantry  Division 


Type  of  transaction  :  (RD)  Request  No  :  1509S4-0019-7320 

Request  for  Issue  to  Div  (  Customer's) 

Stock  Number  : 5555-55-555-5555 
Description  :Test  item5 

Unit  :Roll  Price  ;  3.00  $ 

Quantity  :500 


Is  this  record  correct  ?  X 
Figure  D.3  Request  for  issue  from  customer  screen, 

4.  Receive  stock  item  from  LSC 

Select  option  4  from  the  Routine  Transaction  Menu  to  reach  this  point. 
Enter  the  elements  showm  on  the  screen  in  Figure  D.6  The  possible  output  is  below  the 
figure. 

This  procedure  is  complex  and  it  validates  the  customer  and  stock  number, 
checks  due-ins  and  due-outs,  and  delay  issue  of  the  item. 

5.  Direct  request  to  LSC 

Option  5,  6  will  work  for  special  request  for  issue  to  LSC.  This  procedure 
is  not  for  routine  transactions.  A  warning  will  be  issued  when  you  access  these  options. 

6.  Cancellation  of  request 

Options  7,  8  will  execute  user's  cancellation  requests.  Upon  selection  of 
one  of  these  options  you  will  receive  the  screen  shown  in  Figure  D.7  After  you  enter 
the  data,  you  will  be  prompted  to  confirm  the  record  the  transaction  will  be  cancel. 
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RfiQOSST  FOR  ISSUE 


To 

Pcoa 


s  Th«  3333  Ujqiaeie*  Support  Ca 
s  Th*  ISO  In£«titey  Division 


Stock  nuobsr 
2  8888-38-888-8888 


Osscripcion 
Tsst  iesai 
Tssc  iesaS 


ISSUE 

Paga  l 

und 

D«C« 

:  11/13/87 

E«qu*ae 

Mo  «  15000M-0014-7317 

Unit 

Quoneity 

Prica 

Total 

Ea 

las 

10 

lOSO 

Ea 

20 

22 

440 

Grand  Tocai 

j'f 

TI55 

H^trial  (Uns^cnsnt  MCO  j  ___ 
Mstsrisi  fUnsgsasnt  Officer  t 


0«cs  t 
0«ts  t 


ISSUE  LIST 

Prom  :  The  150  Infanry  Division 
To  :  The  ISO  div  1301  regiment 


Pa9s 

Oats  :  11/13/87 


Stock  number 

• 

1  1111-11-111-1111  Test 

2  S5S5-55-553-5555  Teat 

3  8888-38-388-8888  Test 


Vocher  »o« 1500Q«-0029-7317 

Onhand  Unit  Quant'y  Price 

iteml  SORRY!  Delay  delivery 

7976  Roll  300  3 

items  SORRY!  Delay  delivery 


(«tand  Total  :$ 


1 


Total 

900 

555 


Matrial  Management  MCO  :  _ 

Material  Management  Officer  : 

Figure  D.4 


Date 


_ _ _ _  Date 

Batch  process  examples. 


b.  File  management 

It  is  important  to  enter  the  Property.  ASL  and  Customer  files  data  first.  This 
wll  limit  the  interruptions  due  to  missing  Cl  and  SN.  To  save  the  necessary  data  in 
advance  or  during  the  routine  transaction  job,  choose  option  2  from  the  main  menu. 
It  will  display  the  screen  shown  in  Figure  D.8  From  this  menu,  you  can  add  customer 
and  stock  numbers  to  the  Customer.  Property,  and  ASL  files.  You  can  also  edit 
records  in  these  files  as  well  as  the  Master  and  Batch  Files. 

There  are  nine  options  on  this  screen,  these  are 

/.  Addition 

(1)  Customer.  These  programs  add  customer,  supplier  and  item  to  the 
appropraite  files.  On  selecting  the  number  1,  the  stock  number  shell  will  be  blocked, 
and  customer  shell  will  await  your  entry.  You  must  know  the  customer's  code,  usually 
the  four  digit  common  name  of  the  unit.  After  entering  the  code  of  the  customer,  the 
system  validates  the  record  in  customer  file  to  prevent  duplication.  Once  confirmed, 
the  next  screen  which  is  named  customer  file'  in  Figure  D.9  will  appear.  Enter  the  data 
and  confirm  that  the  record  is  correct.  Your  confirmation  adds  the  record  to  the  file. 


From 

To 

:  5010  Regiment  2  Bn 
:  The  150  Infantry  Division 

Type 

of  transaction  :  (TD) 

Request  for  turn-in 

Request  No  ;  5012S4-0011-7320 

Stock  number  : 

1111-11-111-1111 

Description  : 

Test  iteml 

Unit  :  Ea 

Reuseable?  :  X 

Price;  10.00 

Quantity  :  20 

Is  this  record  correct  ?  X 


Figure  D.5  Request  for  turn-in  from  customer. 


Receive  newstock  from  LSC 


Today  is. . . 


11/16/87 


Receive  from  :The  3333  Logistics  support  Cmd 
Send  to  :The  150  Infantry  Division 


Type  of  transaction  :  Voucher  No  :  1500QM-0027-7320 

Receive  newstock  from  LSC  Request  Number: 

Stock  Number : 1111-11-111-1111 
Description  :Test  iteml 
Unit  :  EA 

Quantity  95  Reusable?  ;  T 

Price  10.00 


Is  this  record  correct  ?  X 
Figure  D.6  Receive  stock  item  from  LSC. 

To  add  a  property  record  in  your  property  file,  select  option  two.  On 
selecting  the  option  the  customer  shell  will  be  blocked  and  stock  number  shell  will  be 
highlighted.  After  you  have  entered  the  stock  number  the  system  wUl  validate  your 
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Cancel  Request  for  issue  item 


Today  ..11/16/87(7320) 


Stock  number  :  2222-22-222-2222 
Customer  Code:  1500 
Request  number:  1500QM-0009-7305 

Quantity  :  97  Price  :  10.00  Date  :(ll/0)/87 


Is  this  record  what  you  want  to  cancel?(V/N)  N 


Figure  D.7  Cancellation  of  request  screen. 


Mana  qeaeni:  of  files 


Bdlt  files 


4.  To  chan9e  Customer  (Cl) 

5.  To  change  Property  (SN) 

6.  To  change  ASL  (SN) 

7.  To  change  Master  (SNtREQNO) 

8.  To  change  Batch  (SN^-REQNO) 


9. Query  on  files 


Addition 


1. To  add  Customer  (Cl) 

2.  To  add  Property  (SN) 

3.  To  add  ASL  (SN) 


Information 


Today  is 
Stock  number 


..11/19/87 


xxxx-xx-xxx-xxxx 

(Or /And) 

Customer  code  : 


(Enter  Selection  (1-9,  or  0  to  go  to  uinmenu)  zli] 


Figure  D.8  File  management  screen. 


entry.  If  accurate,  you'll  sec  the  next  screen,  in  Figure  D.IO  Steps  similar  to  customer 
addition  are  followed.  However,  since  the  ASL  list  is  closely  related  to  the  property  list. 


Is  this  record  correct  7  ¥ 

Figure  D.9  Customer  addition  screen. 

the  program  will  ask  you  whether  the  item  is  also  an  ASL  item  and  will  added  to  the 
ASL  file  if  necessary. 


Is  this  record  correct  ?  s  X 
Figure  D.IO  Property  list  addition  screen. 
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Another  method  to  add  an  ASL  is  to  add  it  directly  to  the  ASL  file  by- 
choosing  option  3.  It  is  suggested  that  you  use  this  method  in  the  case  of  a  newly 
allowed  ASL  item.  The  screen  for  this  option  is  shown  in  Figure  D.ll 


Is  this  record  correct  ?  ;  x 
Figure  D.l  I  ASL  list  addition  screen. 

2.  Editing  or  Deletion  of  an  entry 

There  are  five  options  in  this  process.  Options  4,  5,  6  are  equivalent  to 
option  1,  2,  3  respectively.  Option  7  allows  you  to  change  type  TL  records,  other 
records'  types  are  automatically  saved  through  the  transaction  process.  Option  8 
allows  edits  of  any  type  of  transactions  so  use  it  carefully. 

(1)  Customer.  From  the  screen  management  of  file'  in  Figure  D.8,  select 
option  4,  You  will  be  asked  to  enter  the  customer's  code  that  you  want  to  change  or 
delete.  On  entering  the  code  the  program  retrieves  the  customer  record  from  the 
customer  file  and  displays  the  next  screen  in  Figure  D.l 2  Edit  the  screen  and  exit  by 
pressing  the  CONTROL  and  END  keys  at  the  same  time. 

(2)  Property  and  ASL.  This  procedure  is  almost  same  as  the  option  4. 
Take  option  5  for  property  and  6  for  ASL.  The  edit  screen  for  the  .ASL  list  is  shown  in 
Figure  D.l 3 


Customer  :  2222  code 

Priority  :  6 

Test  unit 

Description 

Example  city 

Address 

700-11 

Zipcode 

Fund  allwed  :  0.00 

0.00 

Expend 

0.00 

On  hand 

Last  edit  date  : 

11/16/87 

(Insert  mode)  :  Ins 
(Delete)  Character  :Del 

Field:  “Y  Record:  *U 

(Record)  Next  :  PgDn 

Previous  :  PgUp 

(Done/Save)  :  '^End  Abandon  :Esc 

Figure  D.I2  Customer  record  editing  screen. 


Edit  Authorized  Storage  List  file 


Today  .  11/29/87 


Stock  number 

:  2222-22-222-2222 

Reorder  Point  :  80 

Order  shipping 

time  : 

21  days 

Safety  Level  :  30 

Date  : 

09/12/87 

Requisition  Objective 

:  180 

Resource 

control  number  :  2222 

(Insert  mode)  :  Ins 
(Delete)  Character  :Del 

Field:  “Y  Record:  *U 

(Record)  Next  :  PgDn 

Previous  ;  PgUp 

(Done/Save)  :  “End  Abandon  :Esc 

(3)  Master  file  records.  This  procedure  edits  the  master  file  records.  It 
requires  you  to  enter  the  stock  number,  the  customer's  jD,  and  the  date  of  the 
transaction.  Its  screen  is  shown  in  Figure  D.14 


stock  number  :  3333-33-333-3333 


I 

I 

» 

i 


Voucher  number  ;  1504S4-0001-7330 
Customer  Code  :  1504 

Type  of  action  ;  RD  Posted  : 

Quantity  ;  10  CJnitcost  ;  102.00  $ 

Date  :  11/29/87 


(Insert  mode)  :  Ins 
(Delete)  Character  :Del 

Field:  '‘Y  Record: 


(Record)  Next  :  PgDn 
Previous  :  PgUp 

(Done/Save)  :  '*End  Abandon  :Esc 


Figure  D.15  Batch  file  record  editing  screen, 
c.  Reports  generation 

.  Four  Types  of  reports  are  available  in  the  system.  Each  report,  other  than 
combat  essential  item  stock-out  report,  may  be  generated  by  stock  number,  by  material 
class,  and  all.  You  can  get  both  printed  and  screen  reports.  The  menu  screen  is 
presented  in  Figure  D.16 

1.  Transaction  status  report 

To  get  the  transaction  status  report,  select  option  1  and  enter  appropriate 
time  period.  Select  any  option  you  want  from  the  screen  in  Figure  D.17  For  example, 
if  you  want  to  get  the  transaction  status  reports  on  material  class  2,  select  option  2. 
You  will  be  asked  to  enter  the  material  class,  and  the  type  of  report,ie  screen  or  print 
out.  It  is  recommended  that  you  postpone  requesting  the  print  out  till  you  check  the 
output  on  the  screen. 

Examples  of  each  option  are  presented  in.  Figure  D.18 

2.  Other  Reports 

Other  reports  can  be  obtained  using  the  same  procedure  as  the  transaction 
status  report.  Select  2  for  stock-out,  3  for  order  shipping  time,  4  for  combat  essential 
item  stock-out  reports. 


Type  oC  Reports 


Information 


1  i  Transaction  Status  Report 
(OA  form  3183) 


Last  TSR  Report  Date 
11/12/87 


3  :  Stockout  Report 
(DA  form  3184) 


Today _ 11/16/87(7320) 


Time  Period 


3  t  OST  Report 

(DA  form  318S) 


4  I  Combat  Essential  Item 
Stockout  Report 
(DA  form  3186) 


Biginning  Date  -  Ending  Date 


(  ./  / 


/  /  ) 


[Enter  Selection  from  (1  -  4,  or  0  to  return)  t  i] 


Figure  D.16  Reports  generation  menu  screen. 


Sales  Tracking 


Options 


1.  Detail  Sales 

2.  Sufflfflary  Sales 

3.  Detail  Customer  Sales 

4.  Summary  Customer  Sales 


5.  Return  to  main  menu 


Enter  Option:  1 


Enter  period  for  sales  tracking  (01/01/87  -  01/01/8  ) 


Figure  D.17  Transaction  status  report  option  menu. 


d.  Analysis 

From  the  main  menu  screen  select  option  4.  When  you  get  the  screen  in 
Figure  D.19  enter  the  stock  number  you  want  to  analyze  and  the  time  period. 


Transacc  Status  Report 


Page  1 
Date  :  11/06/37 


& 


From  :  The  ISO  Infanry  Division 

To  :  The  SS33  Logistics  Supprot  Command 

From  To 

01/01/87  -  01/01/88 

Mo  Stock  numb* 

1  1111-11-111-1 

Class  1 


Class  2 


Class  3 


Class  3 


Class  9 


Description 
Test  itaml 

D/Ibeg 

0 

Req ' St 
950 

Cancel 

0 

Rec ■ ve 
0 

Turnin 

0 

D/Inow 

950 

Subtotal 

0 

950 

0 

0 

0 

950 

Test  item! 

0 

970 

0 

0 

0 

970 

Subtotal 

0 

970 

0 

0 

0 

970 

Test  item! 

0 

0 

0 

0 

0 

0 

Subtotal 

0 

0 

0 

0 

0 

0 

Test  items 

0 

0 

0 

264 

0 

-264 

Subtotal 

0 

0 

0 

264 

0 

-264 

Test  itam9 

0 

0 

0 

24 

0 

-24 

Subtotal 

0 

0 

0 

24 

0 

-24 

Matrial  Management  HCO  :  _ 

Material  Management  Officer 


Date 

Date 


Stockout  Report 


Date 


Page  1 
11/06/87 


To  ;  The  3333  Logistics  Supprot  Command 
From  ;  The  150  Infanry  Division 


No 


Stock  number 


Total 


30days 


60days 


90days 


120days 


1  1111-11-111-1111 
Class  1 

Subtotal 

Total 

0 

Cost 

0 

Item 

0 

Cost 

0 

Item 

0 

Cost 

0 

Item 

0 

Cost 

0 

Item 

0 

Cost 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1  2222-22-222-2222 
Class  2 

Subtotal 

370 

740 

370 

740 

0 

0 

0 

0 

0 

0 

370 

740 

370 

740 

0 

0 

0 

0 

0 

0 

1  5555-55-555-5555 

1000 

3000 

1000 

3000 

0 

0 

0 

0 

0 

0 

Subtotal 

1000 

3000 

1000 

3000 

0 

0 

0 

0 

0 

0 

1  8388-38-888-3688 

Class  8 

Subtotal 

100 

2200 

100 

2200 

0 

0 

0 

0 

0 

0 

100 

2200 

100 

2200 

0 

0 

0 

0 

0 

0 

Matrial  Management  NCO  : 


Material  Management  Officer 


Date  : 
Date  : 


Figure  D.I8  Examples  of  Transaction  status  reports. 
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"^he  time  period  will  effect  the  output  results.  Choose  longer  period  to 
increase  ...e  confidence  in  the  results. 


Today  t  ll/l«/e7 


L«av«  BLANK  any  spaea  to  Bait 

Figure  D.19  Analysis  start-up  screen. 

You  may  try  as  many  time  as  you  want  with  different  possible  data.  However  you 
should  select  one  method  only.  If  you  do  not  enter  an  element,  default  data  will  be 
assumed  (ie,  service  level  85%  and  holding  cost  rate  15%  of  the  annual  inventor>’). 
After  entering  data  into  the  screen  in  Figure  D.20,  the  program  will  display  the  results 
and  will  instruct  you  on  how  to  save  them.  The  result  screen  is  shown  in  Figure  D.20 


You  a«iacc*d  stock  nuafisr  :  88S3-38-388-3888 
(T«sc  icsa8.  Unic:Ea.  Class: 8  > 

Purchasing  pries (P)  :  22  S/Ba 

Annual  Osaand(X)  :  100  Ea/psar 

Lsad  tiaa(OST)  in  Month  :  0  Honthfsl 

Ordoring  coat (Cl  :  0.00  S/ordar 

Holding  cost  unit  par  paar  :  0.00  % 

(Salact  ona  o£  thasal 

Stockout  cost(I£  Knoanl  0.00  S/unit  Salact?  M 

Sarvica  Laval  in  paar  :  0.0000  %  Salact?  Y 


[PRESENT]  Reorder  poiae  :1S 

Sefecy  Level 

:10 

Requisieion  abjeceive  :S0 

Lead  Tiae  : 

14 

Is  this  racord  right? (Y/MI :  X 

Figure  D.20  Variable  entering  for  analysis. 


e.  Query  » 

Two  types  of  queries  are  available.  One  is  transaction  tracking,  and  the  other 
querries  on  a  customer  or  present  status  of  a  stock  number. 

For  the  management  purposes  the  transaction  records  on  a  stock  item  or 
customer's  records  may  be  monitored.  You  may  ask  for  detailed  or  summurized 
transaction  record.  Select  option  9  from  transaction  menu  screen.  After  the  screen  on 
Figure  D.21  comes  up,  select  any  option. 

For  example: 

If  you  want  a  customer's  transaction  detailed  record,  select  option  1.  You  will 
be  prompted  for  type  of  output.ie  screen  or  print  out. 

If  you  need  to  know  the  present  inventory  status  on  a  stock  number,  material 
class,  or  all  items,  select  option  9  from  the  file  management  menu  on  Figure  D.8  The 
next  procedure  is  the  same  as  the  transaction  tracking.  The  options  are  presented  on 
Figure  D.22 
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j  “  .  *  •  .*  I  *  ■  I  * .  ’  ?  ^  4,  '  ^  C4 


Sales  Trackinq 

Options 

1. 

Detail  Sales 

2. 

Sununary  Sales 

3. 

Detail  Customer  Sales 

4. 

Summary  Customer  Sales 

5. 

Return  to  main  menu 

Enter 

Option:  1 

Enter  period  for  seles  trackinq  (01/01/87  -  01/01/8  ) 

Figure  D.21  Transaction  tracking. 


Qutry  on  Stock  nuabor 


Options 


1.  Stock  nuabor 

2.  Class  Entar  Class  Nuabor:  7 

3.  All  (0]  for  class  10 

4.  Rotura  to  sain  aonu 
Sntor  Option:  2 


Figure  D.22  Query  on  stock  number. 
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APPENDIX  E 
PROGRAM  LISTING 


MAIN  MENU 
a  PM  AIN 


K-*r**^A7‘c:^******^^****r*>r**  PMAIN  •  PRG  *>^7^*7^***j^7lt?^>'r**K****A**;c**7>t7^y^r 

-k -k -A -k -k -k  kk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Module  name....:  PMAIN. prg  * 

*  Author . .  Park,  xaeyong 

Date . .  Aug  10 .  1^87 

Purpose . Ham  menu  of  Inventory  Management  System 

for  Republic  of  Korea  Army  Infantry  Division 


Variales  used. . 

Public. 


k 
k 

*  Called  by . 

*  Modules  called 

k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 


Local 


PMHENU .prg , MANAGE FL .prg , TRANSACTION .prg 
REPORTS. prg, ANALYSIS. prg 

MCI  holds  customer  identification  code 
STOCKN  holds  stock  number  which  identifies  item 
TODAY  holds  current  system  date 
CHECK  holds  condition 

ZULU  holds  Zulu  date  which  is  converted 
REQNOl  holds  request  number  which  issued  the  last 
VNl  holds  voucher  number  issued  the  last 
MTYPE  holds  type  of  transaction 
VAR  holds  the  value  of  variance 
STD  holds  the  value  of  standard  deviation 
MLEADT  holds  the  value  of  leadtime  of  any  item 
Z1DAY,Z2DAY,Z3DAY 


. Close  all  open  files  and  clear  all  variables. 

. Set  working  environment. 


CLEAR  ALL 
CLOSE  ALL 

k 


SET  TALK  OFF 
SET  BELL  OFF 
SET  HEADING  OFF 
SET  HELP  OFF 
SET  MENU  OFF 
SET  SAFETY  OFF 
SET  STATUS  OFF 

k 


*  . This  sets  up  the  CRASH.TXT  file  which  records  all  ....,* 

*  . actions  so  that  if  the  system  crashes,  the  database....* 

*  . can  be  recreated.  This  file  will  be  deleted  if . * 

*  . the  system  terminate  normally . * 

*SET’ALTE'to'c^SH . 

*SET  ALTE  ON 

*  . Define  the  public  variables  which  can  be  used  any  module.... 

*  .  without  redefine . 

Public  MCI , STOCKN , CHECK , ZULU , REQNOl , VNl , MTYPE , VAR , STD , MLEADT 

*  . Restore  memorized  variables  from  memory  file.* 

Restore  from  MYFILE.mem 

Store  space(4)  to  MCI , ZULU, MTYPE 
STOCKN  =  space (16) 

CHECK  =  SPACE (1) 

*  .  Create  memory  variable  for  today's  date..* 

TODAY  =  dateO 

*  . Convert  current  date  into  zulu  date..* 

Set  century  on 
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3^  ;*■ 


ZD AY  =  DTOC( TODAY) 

Store  "l/l/''+substr(zday,7,4)  to  ZIDAY 

ZZday  =  TODAY  -  ctod(Zlday)+l 

Store  substr(ZDAY, 10)+str(Z2DAY,7,3)  to  Z3DAY 

Store  substr(Z3DAY, 1 ,4)  to  ZULU 

Set  century  off 

DO  WHILE  .T. 

CLEAR 
DO  PMMENU 
DO  WHILE  .T. 

1=0 

DO  WHILE  i=0 
l=INKEY( ) 

0  22,64  SAY  "" 

IF  UPPER(CHR(i) )$"012345" 

EXIT 

ENDIF 

i=0 

EMDDO 

0  22,64  SAY  UPPER(CHR(i)) 

IF  .NOT.  CHR{i)S"5" 

EXIT 

ENDIF 

0  24,38  GET  today 
RE.AD 

Set  century  on 
ZDAY  =  DTOC( TODAY) 

Store  "l/l/''+substr(zday,7,4)  to  ZIDAY 
Z2day  =  TODAY  -  ctod(Zlday)+l 


Store  substr(ZDAY,10)+str(Z2DAY,7,3)  to  Z3DAY 

Store  substr(Z3DAY,l,4)  to  ZULU 

Set  century  off 

0  24,38  SAY  today 

0  24,53  SAY  ZULU 

ENDDO 

DO  CASE 

Case  CHR(I)  =  '!' 

DO  TRANSACT 

Case  CHR(I)  =  '2' 

DO  HANAGEFL 

Case  CHR(I)  =  '3' 

DO  REPORTS 

Case  CHR(I)  =  '4' 

DO  ANALYSIS 

Case  CHR(I)  =  'O' 

Release  All  like  M* 

Release  TODAY , i , CHECK , STOCKN 
Save  to  MYFILE.mem 

SET  TALK  ON 
SET  BELL  ON 
SET  HEADING  ON 
SET  HELP  ON 
SET  MENU  ON 
SET  SAFETY  ON 
SET  STATUS  ON 
CLEAR  ALL 
EXIT 

OTHERWISE 

?  chr(7) 

ENDCASE 

ENDDO 

SET  ALTE  OFF 
CLOSE  ALTE 
ERASE  CRASH.txt 
CLOSE  DATABASES 
CLEAR 


* . When  done,  exit  from  the  system 

RETURN 

. . . *  Eof:  PMAIN.prg  * . * 


b  PMMENU 


*  Module  name .  .  .  . 

*  Author . 

*  Date . 

*  Purpose . 

*  Called  by . 

*  Module  called. . 


PMMENU. prg 
Park,  Taeyong 
AUG  10,  1987 

Provide  Menu  screen  for  the  PMAIN  program 

PMAIN.prg 

None 


Variable  Used..:  Today, -holds  current  system  date  * 

@  1,9  TO  3,69 
@  4,1  TO  23,77  DOUBLE 
@  6,3  TO  12,37 
@  5,4  TO  7,20  DOUBLE 
@  6,5  SAY  SPACE(15) 

@  6,41  TO  12,75 
0  5,42  TO  7,59  DOUBLE 
@6,43  SAY  SPACE (16) 

0  14,3  TO  21,37 
0  13,4  TO  15,20  DOUBLE 
0  14,5  SAY  SPACE(15) 

0  14,41  TO  21,75 
0  13,42  TO  15,59  DOUBLE 
0  14,43  SAY  SPACE(16) 

0  5,2  SAY  CHR(176UCHR(176) 

0  6,2  SAY  CHR(176) 

0  7,2  SAY  CHR(176) 

0  8,2  SAY  CHR(176) 

0  9,2  SAY  CHR(176) 

0  10,2  SAY  CHR(176) 

0  11,2  SAY  CHR  176 
0  12,2  SAY  CHR(176) 

0  13,2  SAY  CHR  176  -tCHRdTS) 

0  14,2  SAY  CHR(176) 

0  15,2  SAY  CHR(176) 

0  16,2  SAY  CHR(176) 

0  17,2  SAY  CHR(176) 

0  18,2  SAY  CHR(176) 

0  19,2  SAY  CHR(176) 

0  20,2  SAY  CHR(176) 

@21,2  SAY  CHR(176) 

0  22,2  SAY  REPLICATE(CHR(176) ,75) 

0  21,76  SAY  CHR(176) 

0  20,76  SAY  CHR(176) 

0  19,76  SAY  CHR{176) 

0  18,76  SAY  CHR(176) 

0  17,76  SAY  CHR(176) 

0  16,76  SAY  CHR(176) 

0  15,76  SAY  CHR(176) 

0  14,76  SAY  CHR(176) 

0  13,60  SAY  REPLICATE (CHR( 176) ,17) 

0  12,76  SAY  CHR(176) 

0  11,76  SAY  CHR(176) 

0  10,76  SAY  CHRa76) 

0  9,76  SAY  CHR(176) 

0  8,76  SAY  CHR  176) 

0  7,76  SAY  CHR(176) 

0  6,76  SAY  CHR(176) 

0  5,60  SAY  REPLICATE(CHR(176) ,17) 

0  5,21  SAY  PEPLICATE(CHR(176) ,2l) 

0  6,38  SAY  REPLICATE(CHR(176) ,3) 

@7,38  SAY  REPLICATE (CHRa76)  ,3) 


i 

?: 


y 

I 
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CHR(176) 

3) 

CHR(176) 

3) 

(CHR(176 

1,3) 

CHR(176 

),3) 

(CHR(176 

,3) 

CHR(176, 

,21 

(CHR(176 

-3) 

(CHR(176 

'3) 

(CHR(176 

'3; 

(CHR  176 

,3) 

(CHR  176 

'3) 

(CHR(176 

,3) 

(CHR(176 

,3) 

(CHRa76) 

,3) 

t  0  r  y 

M 

0  2. 

@6,6  SAY  "1:  Transaction" 

@  6,44  SAY  "2:  Manaae  file  " 

@14,6  SAY  "3:  Report  " 

@  14,44  SAY  "4:  Analysis" 

@8,44  SAY  "Management  of  file:" 

@9,45  SAY  "Add  ^ 

@  10,45  SAY  "Edit  (delete , change) " 

@  11,45  say  "Query  on  files" 

@  8,6  SAY  "Routine  transaction:" 

@  9,7  SAY  "Request  for  issue  " 

@  10,7  SAY  "Receive  item" 

@  11,7  SAY  "Query  on  transaction" 

16,6  SAY  "Report  Generation:" 

@  17,7  SAY  "Transaction  status  report" 
@  18,7  SAY  "Stockout  report" 

@  19,7  SAY  "Essential  item  stockout" 
@20,7  SAY  "OST  report.  Fund  status" 

@  16,44  SAY  "Analysis  of" 

@  17,45  SAY  "Reorder  point" 

@  18,45  SAY  "Lead  time" 

@  19,45  SAY  "Requisition  Objective" 

@  20,45  SAY  "Safety  Level" 

@  22,8  SAY  "Enter  Selection  (1 
@  24,29  SAY  "Today  is  "+" 

@  24,38  say  TODAY 
@  24,53  SAY  ZULU 
STORE  ""  TO  SELECT 
@  22,63  GET  SELECT  PICT  "9" 

RETURN 


anagement  System' 


4,  5  to  change  date,  or  0  to  exit: 
"+"(ZULU:  )  " 


*  Eof:  PMMENU.prg  * 


1 


ROUTINE  TRANSACTION 
a.  TRANSACTION  MENU 


^•k-k'k-k^-k'k^^-k^:k-^-k'k-kifiK-k  TRANSACT. PRG  -k-kik  ■k-k'A  ^  n-k'k-kir-k  A-k-k  n  •>r  if  w  if  *; 

'k'^'^'^'k'ky^-k-k-k'n'kn-k'k’k-k'k-k-^ifk'k'k'k'k'k'k’k-kyr-k'k-k-kii'k’K-kn'k’k-kA-k-k-k^'k-k’k-k'k'k'k-K-n’k-k'k’k-k-K'k-kkn-kn-k’k 


*  tiodule  name 

*  Author . 

*  Date . :  Aug  20.  1587' 

*  Purpose . :  Record  all  kind  of  transaction  into  the 

*  Batch, Master  file. 

*  Called  by . :  FMAIM.prg 

Modules  called  :  TRBATCH.org.TRCAMCEL.prg.TRSTOCK.prg 

*  TRREQLST'.prg,TRSTOKRD.prg,TRTURNIN.prg 

*  TRTUNLST.prg.TRTUNLC.prg 


TRANSACT. prg 
Park,  Taeyong 
Aug  20.  1987 


*  Variales  used. . 

*  Public. 

*  Local. . 


STOCKM,  MTYPE,  MCUST,  MCI,  MREQNO 
HCIl,  MCI2,  MHOST,  MTYPEA,  MTITLE, 
MCDESC2 


MISCM,  MCDESCl 


'k'k'ki^'ki^'k'k'k'k'k’k^kic^^'k'k'k'k'k'k'k^^'k’k’k^'kit^^'k'k'A^'k’k^k^'k’k^'k^'k'kif'k'k^^'k'k'kifk'k'^'k-k^'k-k'k-k-kifi^'k 


DO  WHILE  .T. 


Mcil  =  space(4) 

Mci2  =  space(4) 
Htitle  =  space(26) 
Mhost  =  space (50; 
Mcust  =  space(50) 
Mtype  =  space (2) 
Htypea  =  space (26) 
Stockn  =  space(l6) 
Hcdescl  =  space(30) 
Hcdesc2  =  space (30) 
Mreqno  =  space(i6) 
Hiscm  =  "T' 


CLEAR 

(?  1,15  TO  3,55  double 
@  4,1  TO  23,77 
(§  6,3  TO  21,38 
@  5,4  TO  7,28 
0  6,5  SAY  SPACE (23) 

0  6,41  TO  12,75 
0  5,42  TO  7,59 
0  6,43  SAY  SPACE (16) 

0  14,41  TO  21,75 
0  13,42  TO  15,59 
0  14,43  SAY  SPACE (16) 

0  2,17  SAY  "Transaction  routine" 
0  6,6  SAY  "  Type  of  transaction" 

0  6,44  SAY  "Source" 

0  14,44  SAY  "Information" 

0  8,6  SAY  "  1  :  Request  for  issue  to  Div" 

0  9,6  SAY  "  2  :  Issue  to  customer  from  Div" 

0  11,6  SAY  "  3  s  Request  for  turn-in  to  Div" 

0  12,6  SAY  "  4  :  Receive  from  LSC" 

0  14,6  SAY  "  5  :  Request  for  issue  to  LSC" 

0  15,6  SAY  "  6  ;  Request  for  turn-in  to  LSC" 

0  17,6  SAY  "  7  :  Cancel  RL  to  LSC" 

0  18,6  SAY  "  8  :  Cancel  RD  to  Div" 

0  20,6  SAY  "  9  :  Query  on  transaction" 

0  8,  42  SAY  "Stock  number  ;  " 

0  10,42  SAY  "  Customer  :  " 

SET  COLOR  TO  N/W 

0  8,56  SAY  STOCKN  PICT  "9999-99-999-9999" 

0  10,56  SAY  MCI  PICT  "9999" 

SET  COLOR  TO 

0  16,47  SAY  "Today  is  . " 

0  16,60  SAY  today 
0  17,51  SAY  "(Zulu  :  "+zulu+")" 

0  19,47  SAY  "Last  VN  :  "+vnl 


@  20,44  SAY  "Last  Reqno  :  "+reqnol 

d  22,12  SAY  "Enter  Selection  from  (1  -  9,  or  0  to  return)  : 

STORE  ""  TO  SEL 
22,59  SAY  SEL 

. The  following  lines  are  for  select  loop . * 

DO  WHILE  i=0 
i=INKEY() 

@  22,59  SAY  "" 

IF  UPPER(CHR(i) )$"0123456789" 
d  22,59  SAY  CHR(I) 

EXIT 
END  IF 
i=0 
EMDDO 

DO  CASE 

Case  CHR(I)  =  '4' 

MTYPE  =  "IL" 

Mtitle  =  "Receive  newstock  from  LSC" 

Mhost  =  "Receive  from 
Hcust  =  "Send  to 
Mtypea  =  mtitle 
Mci2  =  "1500" 

d  8,  56  GET  Stockn  pict  "9999-99-999-9999" 
d  10,56  SAY  Mci2  pict  "XXXX" 

Read 

d  8,  56  SAY  Stockn 
d  10,56  SAY  Mci2 
DO  TRSTOCK 

Case  CHR(I)  =  '3' 

MTYPE  =  "TD" 

mtitle  =  "Request  for  turn-in" 
mhost  =  "Request  from  :  " 
mcust  =  "  Send  to  :  " 
mtypea  =  mtitle 
mci2  =  "1500" 

d  8,  56  GET  Stockn  pict  "9999-99-999-9999" 
d  10,56  GET  Mcil  pict  "XXXX" 

Read 

d  8,  56  SAY  Stockn 
d  10,56  SAY  Hcil 
DO  TRTURNIN 

Case  CHR(I)  =  '!' 

MTYPE  =  "RD" 

Mci2  =  "1500" 

d  8,  56  GET  Stockn  pict  "9999-99-999-9999" 
d  10,56  GET  Mcil  pict  "XXXX" 

Read 

d  8,  56  SAY  Stockn 
d  10,56  SAY  Mcil 
DO  TRSTOKRD 

Case  CHR(I)  =  '2' 

MTYPE  =  "ID" 

d  8,  56  SAY  "XXXX-XX-XXX-XXXX" 
d  10,56  SAY  "XXXX" 

DO  TREAT CH 

Case  CHR(I)  =  '5' 

MTYPE  =  "RL" 

Clear 

d  10,10  to  17,65 

d  12,15  SAY  "Your  selection  (RL)  must  be  resulted  from  other" 
d  13,15  Say  "  type  of  transaction.  It  means  this  module  " 

d  14,13  Say  "is  conducted  automatically.  However  you  may" 

d  15,15  Say  "  continue  this  if  you  eagerly  want  to  do" 

d  17,15  Say  "Do  you  want  to  continue(Y/N) ?  " ; 

GET  CHECK  pict  "1" 

Read 


If  CHECK=  "Y" 

DO  TRREQLST 
Endif 
Loop 

Case  CHR(I)  =  *7' 

HTYPE  =  "CL" 

@  8,  56  GET  Stockn  pict  "9999-99-999-9999" 
@  10,56  GET  Moil  pict  "XXXX" 

Read 

0  a,  56  SAY  Stockn 
@  10,56  SAY  Mcil 
Do  TRCANCEL 

Case  CHR{I)  =  '6' 

HTYPE  =  "TL" 

@  8,  56  GET  Stockn  pict  "9999-99-999-9999" 
@  10,56  SAY  Hcil  pict  "XXXX" 

Read 

(3  8,  56  SAY  Stockn 
@  10,56  SAY  Hcil 


Do  TURNTOLC 

Case 

CHR(I)  = 

'8' 

HTYPE  = 

"CD" 

Case 

CHR(I)= 

'9' 

HTYPE="C 

3UERY' 

Do  Tracking 

CASE  1=27  .OR.  CHR(I)  =  'O' 

?  Chr(7) 

CLEAR 

EXIT 

ENDCASE 

ENDDO 

RETURN 

* - *  Eof:  Transact. prg  * 


b.  TRSTOCKRD 

’k'k-k^^'k’k’kit'k-k-k-^’k'k'kiv'k-k-k'k  TRSTOCKRD .  PRG  ★★i^**:^:^*:*?*****  A***7‘ti>!:*ik*Vt** 


*  Module  name....;  TRSTOKRD.prg 

*  Author . .  Park,  Taeyong 

*  Date . :  Aug  28.  1987 

*  Purpose . :  Record  request  for  issue  transaction  from 

*  customer  into  batch  file. 

*  Called  by . •.  TRANSACTION. prg 

A.  mm  t  ^  *  ^  ^ 


*  Modules  called  :  * 

*  Variales  used.  .  ;  * 

*  Public . :  * 

*  Local. . ;  * 

•k  k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

S 6  Lee t  A 

Use  BATCH  index  SNCIBAT,CIBAT 
Select  B 

Use  PROPERTY  index  SNPROPER 
Select  C 

Use  ASL  index  IKASL 
Select  D 

Use  CUSTOMER  index  CICUST 
Select  B 

Store  "X"  to  batcheck, checks 
Xcheck  =  .T. 

Do  while  Xcheck 
Clear 


2/2 

^REPUBLIC  OF  k'OREA)  BRN  <U)  MAVAL  POSTGRADUATE  SCHOOL 
MONTEREV  CA  T  PARkT  DEC  87 


UNCLASSIFIED 


F/G  12/5 


@  10,15  to  14,65 

@  11,17  Say  "  Customer  Code  :  "  Get  Moil  Piet  "9999" 

@  13,17  Say  "  Stock  Number  ;  "  Get  Stockn  pict  "9999-99-999-9999" 

Read 

If  Mcil  =  "  "  .OR.  stockns"  " 

Exit 
Endif 
Select  D 
Seek  mcil 
If  .NOT.  foundO 

@  11,16  clear  to  13,64 

@  11,17  Say  "Not  found  "+Hcil+"  code  customer  " 

@  13,17  Say  "Do  you  want  to  add  this  as  customer? (Y/N)  "; 

Get  checks  pict  " ! " 

Read 

If  checks  =  "Y" 

Mci=Mcil 
Do  addeust 

Store  edese  to  Mcdescl 
Loop 

Else 

Loop 

Endif 

Else 

Store  edese  to  Mcdescl 
Select  B 

StockN  =  Upper(StockN) 

Seek  StockN 
If  .NOT.  foundO 
Clear 

Store  "X"  to  checks 

@  13,10  say  stockn  +  "  is  Not  found  in  your  property  book" 
@  15,20  Say  "Is  this  the  INITIAL  demand  ?  "  get  checks 
Read 

checks  =  upper(checks) 

If  checks  =  "Y" 

Store  0  to  Mcost 
Else 

Clear 

@15,  20  say  "Check  stock  number  and  try  again  !" 

Wait 

Loop 

Endif 

Else 

mcost  =  unitcost 

Endif 

Endif 

Select  A 
Append  Blank 

Replace  Cl  with  MCIl,  Type  with  Mtype,  SN  with  StockN,Misc  with  .T. 
Replace  Unitcost  with  Mcost,  Date  with  today,  Reqno  with  Mreqno 
Do  while  .T. 

Set  format  to  batch 
Read 

If  batcheck  =  "Y" 

Set  format  to 

Replace  REQNO  with  mreqno 

Stockn  =  space(16) 

Exit 

Endif 

Enddo 

Enddo 

Close  Databases 
Release  all 
Return 

* . *  Eof  TRSTOKRD.prg  * . * 
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c.  TRBATCH 


•k'k^-k-k-k'k-k'k'k'k'k'k-kic-kit^'k'k  TRBATCH. PRG  *^^****^*A^>^AAK**A:*r:^A***yc** 


Module  name . TRBATCH. prg 

Author . .  Park.Taeyong 

Date . Aug  28.  198/ 

Purpose . .  This  is  the  module  for  performing  the 

BATCH  file  which  contains  the  records 
of  routine  transactions 
TRANSACT. prg 
ISSUE. prg 

MASTER , PROPERTY , ASL , BATCH , TEMPBAT 
REQNOl,  ZULU 

MQTY  holds  unit  quatity  of  a  given  stock  item. 

MTOTAL  holds  total  amount  of  item  which  is  written 
on  the  report  so  far. 

MUNITC  holds  unit  price  of  a  given  item. 

STOCKN  holds  stock  number 

LINECTR  holds  the  number  of  the  line  written  so  far* 
N  holds  how  many  iteration  has  happend  * 

it'k'k'k'k'k'k'k'k-k'k'k'k'k'k^iKifiK-k'kickif’k^-kiK'k'^it'k-k-kn’k'k'k-k'k^i^'k-k'kif’k^if'k'k^^n^iK^ick'k^^'k-k’k'k'kiK’k'k-k 


*  Called  by . 

*  Modules  called 
Databases  used. 
Variales  used. . 

Public . 
Local. . 


* 

ft 

ft 


Select  A 

Use  MASTER  index  SCTMAST 
Select  B 

Use  PROPERTY  index  SNPROPER 
Select  C 

Use  ASL  index  INASL 
Select  B 

Set  relation  to  SN  into  C 
Select  A 

Set  relation  to  SN  into  B 
Select  E 

Use  Batch  index  SNCIBAT,CIBAT 

*....  Create  a  temporary  file  for  stock  number  and  type  of  transaction. 

*....  is  same  as  given  condition . 

Total  on  SN  to  TEMPBAT  for  TYPE*"RD" 

Use  TEMPBAT 
Go  top 

* . If  nothing  has  happened  the  day,  give  information  and  return . 

If  Eof() 

@  10,14  Clear  to  14,65 
@  10,14  to  14,65 

@  11,17  Say  "Your  Batch  file  is  empty  ->  Go  and  take  rest  !" 

@  13,19  Say  "Press  Any  key  to  go  main  menu" 

Wait  "  " 

Release  all 
Close  databases 
Erase  TEMPBAT. dbf 
Return 
Endif 

Index  on  SN  to  TEMPBAT 
Use  TEMPBAT  index  TEMPBAT 
Set  relation  to  SN  into  PROPERTY 
Store  "X"  to  mprint, checks 
Store  1  to  PAGECTR, LINECTR, N 
Store  0  to  TOTAL, MTOTAL, Z 
Go  top 

Do  while  .NOT.  Eof() 

Clear 

@  10,14  clear  to  14,65 
@  10,14  to  14,65 

@  11,27  say  "Wait  while  it  is  cession  " 

Store  SN  to  STOCKN 
Store  QTY  to  NQTY 
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store  B->nm  to  Mnm 
Store  B->unit  to  Munit 
Store  B->unitcost  to  MUNITC 
Store  B->ONHAND  to  MONHAND 
Store  MONHAND  -  NQTY  to  XONHAITO 
If  XONHAND  <  C->ROP 

*  .  Check  whether  the  master  file  already  has  an  order 

*  .  of  the  item  or  not,  if  yes,  check  the  amount  so  that 

*  .  can  do  action  necessary. 

Select  A 

Seek  STOCKN  +  "1500RL" 

If  found 0  .AND.  .NOT.  POSTED 

Store  QTY  +  XONHAND  to  MONHAND 
Else 

Store  XONHAND  to  MONHAND 
Endif 
Select  E 
Endif 

If  MONHAND  <  C->ROP 
If  mprint  =  "X" 

Do  while  .T. 

(a  10,14  clear  to  14,65 
@  10,14  to  14,65 

@  11,27  say  "Ready  printer?  "  get  MPRINT  pict  "I" 

Read 


*.Set  printer  ready  to  print  out,  and  console  off  so  that 

* . can  be  being  conducted  without  disturbance. 

If  mprint  =  "Y" 
set  print  on 

@  13,20  Say  "Wait  while  printing . " 

Set  console  off 
Exit 
Endif 
Enddo 
Endif 

If  LINECTR=40*(N-1)+  1 
If  LINECTR  =  1 

Store  Val(Substr(REQN01,8,4))  to  MREQNO 
MREQNO  *  lOOOOO+MREQNO+1 

REQN01=  "1500QH"+"-"+substr(str(MREQNO),7,4)+"-"+ZULU 

Endif 
?  '  I 

?  '  ' 

?  I  ' 

?  '  REQUEST  FOR  ISSUE' 

??  '  Page  '  +  str(pa^ectr ,2) 


??  '  Date  I  '+Dtoc(date()) 

?  '  To  I  The  3333  Logistics  Support  Command' +  Mcdescl 
?  '  From  s  The  150  Infantry  Division  ' 

?  '  Request  No  »  '+Reqnol 

7  I  • 


?  '  No  Stock  number  Description  ' 

??  'Unit  Quantity  Price  Total' 

Store  pagectr  +  1  to  pagectr 
Endif 

Store  (C->RO) -MONHAND  to  MQTY 
Store  MQTY  *  MUNITC  to  MTOTAL 
Store  TOTAL  +  MTOTAL  to  TOTAL 

Store  linectr  to  Z  ^  ,  ,  ,  v 

?  Str(Z,4)+'  '+sn+'  '+rtrim(mnm)+space(l5  -  LEN(rtrim(mnm) ) ) 
??  '  '+  munit+'  '+str(mqty)-'-str{nmnitc) 

??  str (munitc*mqty) 
linectr  =  linectr  +  1 


* .  Record  the  action  on  the  master  file. 

Select  A 
Append  Blank 

Replace  SN  with  StockN.Ci  with  "1500" 

Replace  Reqno  with  reqnol.Qty  with  MQty,Type  with  "RL" 


Replace  Unitcost  with  munitc,Misc  with  .T.,Date  with  today 
Replace  Posted  with  .F. 


Select  E 

If  linectr=40*N  +  1 

?  '  ' 

??  '  ' 

7  I  i 

?  '  ' 

?  'Material  Management  NCO  :  _ ' 

??  'Date  :  _ / _ /  ' 

?  'Material  Management  Officer  : _ ' 

??  'Date  :  _ 7 _ / _ ' 

Eject 
N  =  N  +  1 
Endif 
Endif 
Select  E 
Skip 
Enddo 

*  .  Print  only  when  heading  printed 

If  linectr  >  1 

?  '  ' 

??  '  ' 
p  ■  I  I 

??  '  Grand  Total  :$'  +  str( total) 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  _ ' 

??  '  Date  ;  _ / _ J _  ■> 

?  ' 

?  'Material  Management  Officer  :  _ ' 

??  '  Date  :  _ / _ / _  • 

Eject 

Endif 

If  MPRINT  ="Y" 

*  .  Reset  printer  off  and  console  on  so  that  make  it 

*  . possible  to  communicate  with  the  user. 

Set  print  off 

Set  console  on 
Endif 

*  .  Erase  the  temporary  file  which  is  no  more  useable. 

Close  databases 

Erase  tempbat.dbf 
Do  TRISSUE 
Release  all 
Close  databases 
Return 

*  . *  Eof  BATCH. prg  * . * 


d.  TRISSUE 

AAAAAAAAAAAAAAAAAAAA  TRISSUE. PRG  AAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  Module  name....!  TRISSUE. prg  * 

'''  Author .  Park,  Taeyong  * 

*  Date . »  Sept  2.  1987  * 

*  Purpose . s  This  is  the  issue  module  for  generating  * 

*  Receipt  to  the  customer  correspondinig  * 

*  to  request  for  issue.  * 

*  Called  by . Batch. prg  * 

*  Modules  called  j  none  * 

*  Variales  used..!  * 

*  Public . :  Vnl ,  * 

*  Local..:  Total, Mtotal,Z,Mexpend,Mfundoh  * 

*  Databases  used.:  MASTER, PROPERTY, CUSTOMER, BATCH, STOCKOUT  * 


99 


Select  A 

Use  MASTER  index  SCTMAST 
Select  B 

Use  PROPERTY  index  SNPROPER 
Select  C 

Use  STOCKOUT  index  STOCKOUT 
Select  D 

Use  CUSTOMER  index  CICUST 
Select  A 

Set  relation  to  SN  into  B 
Select  E 

Use  BATCH  index  CIBAT , SNCIBAT 
Set  relation  to  SN  into  B 


If  Eof{) 

Clear 

@  15,25  SAY  "Lucky  today!  Go  and  take  a  rest" 

?  Chr(7) 

x=o 

Do  while  x<35 
X=X+1 
Enddo 

Close  databases 
Return 
Endif 

Store  "X"  to  Mprint 
Do  while  .T. 

@  10,14  clear  to  14,65 
@  10,14  to  14,65 

@  11,25  Say  'Ready  Printer  ?  '  Get  mprint  pict 
Read 


@  11,42  Say  mprint 
If  Mprint=^Y' 


set  print  on 

@  13,20  Say  "Printing . " 

Set  console  off 

Store  0  to  total,mtotal,2,Mfundoh,Mexpend 
Store  1  to  pagectr,linectr,N 
Exit 
Else 

Clear 

Set  color  to  N/W 

@13,  20  Say  "You  Pressed  "+mprint 
Set  color  to 

@  15,  20  Say  "Do  you  want  to  finish  the  job(Y/N)?"  Get  check 
Read 

If  check  -  'Y' 

close  databases 
Return 
Else 

Store  "X"  to  Mprint 
Loop 
Endif 
Endif 
Enddo 
Go  top 

Do  while  .NOT.  eof() 

If  deleteO 
Skip 
Loop 
Endif 

Store  ci  to  mci 
Select  D 
Seek  mci 

Store  Expend  to  Mexpend 
Store  Fundoh  to  Mfundoh 
Store  cdesc  to  mcdescl 
Select  E 

Do  while  Type»"RD"  .AND.  ci  »  mci 
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If  deleteO 
Skip 
Loop 
Endif 

Store  type  to  mtype 
Store  b->unitcost  to  mcost 
Store  b->onhand  to  fonhand 
Store  qty  to  Eqty 
Store  tonhand-Eqty  to  fonhand 
store  reqno  to  mreqno 
Store  sn  to  stockn 
If  linectr=40*(N-l )+l 
If  linectr  =  1 

Store  Val(Substr(vnl,8,4) )  to  Mvn 
Mvn=100000+Mvn+1 

Vnl="1500QM"+"-"+Substr(str(Mvn) ,7,4)+"-"+zulu 
Endif 
?  '  ' 

?  '  ' 

?  *  ' 

?  '  ISSUE  LIST' 

Page  '  +  str(pagectr,2) 

^Date  :  '+Dtoc(date()) 

?  '  From  :  '+  'The  150  Infanry  Division' 

?  '  To  ;  '+  mcdescl 
?  '  ' 

??  '  Vocher  Not'+vnl 

?  '  ' 

?  'No  Stock  number  Description' 

??  '  Onhand  Unit  Quant  y  Price  Total' 

store  pagectr  +  1  to  pagectr 
Endif 

If  fonhand  <  0 
?  chr(7) 
clear 

@  15,20  Say  "You  have  stockout  item  "+stockn 
@  17,20  Say  "This  will  be  added  to  stockout  file" 
num  =  0 

Do  while  numOO 
num*num+l 
Enddo 

Store  linectr  to  Z 

?  Str(2,2)+'  '+sn+'  '+rtrim(b->nm)+space(15  -LEN(rtrim(b->nm) ) ) 
??  "  +  '  SORRY!  Delay  delivery' 

Linectr*linectr+1 
Select  C 
Append  Blank 

Replace  sn  with  stockn, ci  with  mci, reqno  with  mreqno 
Replace  qty  with  eqty,unitcost  with  mcost 
Replace  outdate  with  today, posted  with  .F.,Type  with  mtype 
Select  E 
Delete 
Loop 
Endif 

If  fonhand  >*0 

Store  linectr  to  Z 

?  Str(Z,2)+'  '+sn+'  ' +rtrim(b->nm)+space(15  “LEN(rtrim(b->nm) ) ) 

??  "+str(b->onhand)+'  '+  b->unit  v  v  /// 

??  str(qty}+str(b->unitcost)+str(b->unitcost*qty) 

linectr  *  linectr  +  l 

Store  b->unitcost*qty  to  mtotal 

Store  total+mtotal  to  total 

Select  A 

Append  blank 

Replace  sn  with  stockn, ci  with  mci,vn  with  vnl,; 
reqno  with  mreqno, type  with  mtype 
Replace  qty  with  eqty 

Replace  unitcost  with  mcost, Misc  with  .T.; 
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Date  with  today, Posted  with  .T. 

Select  B 
Seek  stockn 

Replace  onhand  with  fonhand, tvalue  with  fonhand*unitcost 
Select  E 
Delete 
Skip 
Endif 

If  linectr=40*N+l 

?  '  ' 

??  '  ' 

?  '  ' 

??  '  Grand  Total  '+  str(total) 

•?  •  • 


?  '  ' 

?  '  ' 

?  'Material  Management  NCO  : 

??  'Date  :  _ 7 _ /  '  ~ 

?  'Material  Management  Officer  : 

??  'Date  :  _ 7 _ / _ ' 

Eject 
N  =  N  +  1 
Endif 


Enddo 

If  linectr>l  .AND.  .NOT.  linectr=40N+l 

?  '  ' 

??  '  ' 

Y  I  I 

??  '  Grand  Total  :$'  str( total) 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  _ 

??^  '  Date  :  _ ! _ j./ _  T 

?  'Material  Management  Officer  t  _ 

??  '  Date  :  _ /  / _  ' 

Store  1  to  pagectr,linectr,N 
store  0  to  total, mtotal 
Eject 
Endit 
Select  D 
Seek  mci 

Replace  Fundoh  with  Mfundoh-mtotal 
Replace  Expend  with  Mexpend-t-mtotal 
Select  E 
Enddo 
Select  E 
Pack 

Store  space(4}  to  mci 
Release  all 
Set  print  off 
Set  console  on 

* . *  Eof  TRISSUE.prg  * . 


* 


e.  TRREQLST 


A A A AAAAAAAAAAAAA AAAAA AAA  TRREOLST . PRO  AAA AAAAAAA AA A A A A AA AAAAAAA AAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Date. 


*  Module  name....:  TRReqlst.prg 

*  Author . Park,  Tae 

A  -  -  - 

A 
A 
A 

*  Called  by .  Transact. prg 

*  Modules  called  :  None 


(  AAAAAAAAAAAAA AAAAAAAA AAA AAAAAAAA AAAAAAA 

A 
A 
A 
A 
A 
A 
A 
A 


laeyong 
Sept  3.  1987 

Purpose . This  is  the  Transaction  module  for  request 

for  issue  to  the  higher  logistics  command 
in  force. 
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Select  A 

Use  MASTER  index  SCTMAST 
Select  B 

Use  PROPERTY  index  SNPROPER 
Select  D 

Use  CUSTOMER  index  CICUST 
Select  A 

Store  "X"  to  CHECK 

Store  0  to  MQTY , TOTAL , MTOTAL 

Store  Val(Substr(reqnol,a,4))  to  Mreqno 

Mreqno  =  100000+Mreqno+l 

Reqnol=  "1500QM"+"-"+svibstr(str(Mreqno) ,7 ,4)+"-"+zulu 

Do  while  .T. 

Clear 

@  10,15  to  14,65 

@  11,17  Say  "  Customer  Code  :  "  Get  Mcil  Piet  "9999" 

@  13,17  Say  "  Stock  Number  :  "  Get  Stockn  pict  "9999-99-999-9999" 

@  15,25  Say  "Leave  blank  any  space  to  exit." 

Read 
Select  D 
Seek  mcil 
Do  Case 

Case  Mcil  =  "  " 

Exit 

Case  .NOT.  found() 

@  11,16  clear  to  13,64 

@  11,17  Say  "Not  found  "+Mcil+"  code  customer  " 
d  13,17  Say  "Do  you  want  to  add  this  as  customer? (Y/N)  " ; 

Get  check  pict  "1" 

Read 

If  check  =  "Y" 

Do  addeust 
Store  "X"  to  CHECK 
Store  edese  to  Mcdescl 
Else 
Loop 
Endif 
Case  FoundO 

Store  edese  to  Mcdescl 

EndCase 
Select  B 

StockN  =  Upper(StockN) 

Seek  StockN 
Do  case 

Case  stockN  *  "  " 

Exit 

Case  .NOT.  found() 

Clear 

@  13,10  say  stockn  +  "  is  Not  found  in  your  property  book" 

0  15,20  Say  "Is  this  the  INITIAL  demand?  "  GET  OIECR  Pict  "!" 
Read 

If  check  ■  "Y" 

Store  0  to  Hcost 
Store  "X"  to  CHECK 
Else 

Clear 

0  15,  20  say  "Check  stock  number  and  try  again  !" 

Wait  ^ 

Loop 
Endif 
Case  foundO 

Store  UNITCOST  to  MCOST 
Store  ONHAND  to  MONHAND 
Store  NM  to  MNM 
Store  UNIT  to  MUNIT 

Endcase 
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Select  A 
Append  Blank 

Replace  Cl  with  MCIl,  Type  with  Mtype,  SN  with  StockN,Misc  with  .T. 
Replace  Unitcost  with  Mcost,  Date  with  today,  Reqno  with  Reqnol 
Do  while  .T. 


Clear 


@ 

@ 

@ 


2, 

3, 

3, 

5, 

6, 

8, 

9, 

9, 

9, 

@  12, 

@  12, 

@  14, 

@  14, 

@  16, 

@  16, 

@  18, 

@  18,  32 
@  18,  50 
@  18, 

@  20, 

@  20,  32 
@23,  30 
@  ■ 

@ 

@ 

@ 

@ 

Read 
If  CHECK 


9 

43 

56 

7 

7 

6 

6 

34 

50 

19 

32 

19 

32 

34 

41 


SAY 

SAY 

Say 

SAY 

SAY 


"Request  for  Issue" 

"Today  is. . 

Today 

"  To:  "+  mcdescl 

"From:  The  1500  Infantry  Division" 


SAY  "Type  of  transaction 
SAY  "Request  for  Issue (RL)" 

SAY  "Request  Number:" 

GET  REQNOl  PICTURE  "9999 !'. -9999-9999" 

SAY  "Stock  Number:" 

GET  MASTER->SN  PICTURE  "9999-99-999-9999" 


SAY  "Description 
GET  . 


MNM 

SAY  "Unit  :" 

GET  MUNIT  FUNCTION  "fAAA" 
19  SAY  "Quantity  :" 

GET  HQTY  Piet  "99999" 
"Reusable?  :  " 
MASTER->Misc 
"  Price  :  " 

GET  MCOST  PICT  "999999.99" 
SAY  "Is  this  record  correct 


PICTURE  "XXXX" 


62 

19 


SAY 

GET 

SAY 


4, 

4 

TO 

21, 

71 

1, 

6 

TO 

3, 

40 

7, 

5 

TO 

7, 

70 

10 

,  5 

TO 

10 

,  70 

a. 

32 

TO 

9, 

32 

?  "  GET  CHECK  pict  "!' 


s  "Y'l 


Replace  QTY  with  Mqty 
"YIT  ruvcK 


Store  "X*^  to  CHECK 
Exit 
Endif 
Enddo 

@  10,12  clear  to  14,63 
@  10,12  to  14,63 

@  11,23  say  "Ready  printer?  "  GET  CHECK  pict 
Read 

If  check  =  "Y" 

Set  print  on 

@  13,20  Say  "Wait  while  printing . " 

Store  "X"  to  CHECK 
Set  console  off 
Endif 

Store  1  to  pagectr ,linectr,N 
Store  0  to  total, mtotal,Z 
If  linectr<=l 


7 

? 

? 

'•>  ' 
'■> 

7 

7 

7 

7 

77 

Endif 


REQUEST  FOR  ISSUE' 

Page  '  +  str(pagectr ,2) 


To 

From 


No 

'Unit 


I  '+  Mcdescl 

:  The  150  Infantry  Division  ' 
Request  No 


^  -t-Reqnol 


Stock  number 
Quantity 


Description  ' 
price  Total' 


Store  (Mqty*Mcost)  to  Mtotal 
Store  linectr  to  2 

?  Str(Z,4)+'  ’+sn+' '+rtrim(Mnm)+space(15 
'  '+  Munit+'  '+str(mqty)  +  str(Mcost) 
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LEN(rtrim(Mnm))) 
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??  str(Mcost*mqty) 

Store  Linectr+I  to  linectr 
Store  Mcost*qty  to  mtotal 
Store  total+mtotal  to  total 
(?  15,  10  clear  to  17,65 
@  15,10  to  17,65 

@  16,  15  Say  "Do  you  have  more  to  request(y/N)?  "  Get  Check  Pict 
Read 

If  Check="Y" 

Store  "X"  to  CHECK 
Store  0  to  Mqty 
Store  space(i6)  to  Stockn 
Loop 
Endif 


Grand  Total  ;$'  +  str(total) 


?  'Matrial  Management  NCO  t 

??  '  Date  :  _ / _ J _  T 

?  '  ' 

?  'Material  Management  Officer  :  _ 

??  '  Date  :  _ / _ / _  ' 

Eject 

Store  space(16)  to  Stockn 
Enddo 
Clear 

Set  print  off 
Set  console  on 
Close  databases 
Release  all 
Return 

* . *  Eof  TRREQLST.prg  *- 


f.  TRSTOCK 


********************************************************************** 

*********************  TRSTOCK. PRG  *************************** 

********************************************************************** 

*  Module  name....:  TRSTOCK  .prg  * 

*  Author . Park,  Taeyong  * 

*  Date . .  AUG  18.  1987  * 

*  Purpose . Record  item  received  from  higher  command  * 

*  on  the  master  file.  If  needed  add  to  the  * 

*  ASL  or  PROPERTY  -file  * 

*  Called  by . .  TRANSACT. prg  * 

*  Modules  called  :  None  * 

*  Variales  used. . :  * 

*  Public.:  Vnl  * 

*  Local . . :  Docheck , check , f check , Dcheck , mqtys , smqtys . .  * 

****H*************!^****A********A***A******************************* 

Select  A 

Use  Master  INDEX  SCTMAST 
Select  B 

Use  PROPERTY  index  SNPROPER 
Select  C 

Use  ASL  index  INASL 
Select  D 

Use  CUSTOMER  index  CICUST 
store  1  to  M 

Store  "X"  to  check, f check, dcheck 
store  0  to  mqtys, smqtys, mqty, mlqty.Tqty 
Store  Val(Substr(Vnl ,8,4) ;  to  mvnl 
mvnl  *  100000+mvnl+l 


!  A  CO  cneoic, 

‘  0  to  mqtys, smqtys, mqty, mlqty.Tqty 
i  Val(Substr(Vni ,8,4) )  to  mvnl 
=  100000+mvnl+l 


Vnl  =  "1500QM-"+Substr(str(mvnl) ,7,4)+“-"+Zulu 
Docheck  =  .T. 

Do  while  DOCHECK 
Clear 

*  . Check  Your  customer,  or  add  him 

Do  while  .T. 

@  10,15  to  14,65 

d  11,17  Say  "  Customer  Code  ;  "  get  mcil  pict  "9999" 

@  13,17  Say  "  Stock  Number  ;  "  get  stockn  pict; 
"9999-99-999-9999" 

@  15,20  Say  "Leave  BLANK  stock  number  to  exit" 

Read 

Seek  mcil 
If  foundO 

Mcdescl  =  cdesc 

Hcdesc2  =  "The  150  Infantry  Division" 

Exit 

Else 

@  11,16  clear  to  13,64 

@  11,21  Say  "Not  found  "+mcil+"  code  customer" 

@  13,21  Say  "Do  you  want  to  add  the  customer?  "  get 
check  pict  " ! " 

Read 

If  check  =  "Y" 
mci  =  mcil 
Do  addcust 

Store  cdesc  to  mcdescl 
Endif 
Endif 
Enddo 

*  . Check  the  new  item  initial  or  requested  one. 

Select  B 

StockN  =  Upper(StockN) 

Seek  StockN 
Do  case 

Case  StockN  *  "  " 

Docheck  =  .F. 

Loop 

Case  .NOT.  foundO 

@  10,15  to  14,65 

@  11,21  say  "  Not  found  in  your  property  book" 

@  13.21  say  "  Is  this  the  INITIAL  supply?"  get; 

check  pict 

Read 

If  check  =  "Y" 

Append  blank 

Replace  SN  with  StockN,DATE  with  Today 
Store  0  to  unitcost,onhand 
Set  format  to  PROP 
Read 

If  f check  =  "Y" 

Set  format  to 

Store  unitcost  to  mcost 

Store  onhand  to  monhand 

Replace  TVALUE  with  (mcost*monhand) 

Endif 

9  10,15  clear  to  14,65 
@  10,15  to  14,65 
@  12,17  Say  "Is  This  "+stockn  +; 

"  ASL  item?  "  get  check  pict  "!" 

Read 

If  check  =  "Y" 

Select  C 
Seek  stockN 
If  foundO 

9  11,14  clear  to  13,64 
9  11,17  say  SN+"  is  Already  exist 1" 
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@  13,17  Say  "Do  you  want  to 
change?"  get  check  Piet  "!" 

Read 

If  check  =  "Y" 

Replace  SN  with  Stockn 
Replace  Date  with  Date() 

Do  while  .T. 

Set  format  to  ASL 
Read 

dcheck=  upper (dcheck) 

IF  dcheck  =  "Y" 

Close  format 
Exit 
Endif 
Enddo 
Endif 

Else 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  ASL 
Read 

If  dcheck  =  "Y" 

Close  format 
Exit 
Endif 
Enddo 
Endif 
Endif 

@  10,15  clear  to  14,65 
@  10,15  to  14,65 

@  12,25  Say  "You  did  good  job.  Now  try  gain!" 

@  13,25  Say  "  Press  Y)  to  continue  "  get  ; 

check  Piet  "I" 

Read 

If  check  =  "Y" 

Loop 

Endif 

Else 

@  10,15  clear  to  12,65 
@  10,15  to  14,65 

@  11,25  Say  "Sorry  no  way  to  go,  Try  again!  " 

@  13,25  Say  "  Press  Y|  to  continue  "  get  ; 

Check  pict  " ! " 

Read 
Loop 
Endif 
Case  foundO 

mcost  =  unitcost 
monhand  =  onhand 

Endcase 
Select  A 

Store  stockn+"1500"+"RL"  to  mstockn 

Sum  QTY  for  SN=stockn  .AND.  type="RL"  .AND.  .NOT.  posted  to 
Store  "X"  to  zcheck 
Do  while  .T. 

Append  Blank 

Replace  Cl  with  MCIl,  Type  with  Mtype 
Replace  SN  with  StocfcN.qty  with  Tqty 
Replace  Unitcost  with  Mcost 

Replace  Date  with  today, misc  with  .T., posted  with  .T. 
Replace  vn  with  vnl 
Set  format  to  mast 
Read 

zcheck  =  upper(zcheck) 

If  zcheck  =  "Y" 


Close  format 
Store  QTY  to  Ml 
Mlqty  to 


TY 

QTY 


Store 
Exit 
Endif 
Enddo 
Go  top 

Seek  mstockn 

* . If  requested  item,  post  it 

If  foundO 

Do  while  .NOT.  Eof()  .AND.  type="RL" 
If  posted 
skip 
loop 
Endif 

Store  REQNO  to  MREQNO 
Store  DATE  to  MDATE 
Store  UNITCOST  to  MICOST 
Store  QTY  to  CQTY 
Do  case 


.AND.  SN=STOCKN 


Case  MIQTY-CQTY  <  0 

Replace  vn  with  vnl, posted  with  .T. 
Replace  OTY  with  MIQTY 
Append  Blank 
Replace  sn  with  stockn 
Replace  reqno  with  mreqno 
Replace  date  with  mdate 
Replace  unitcost  with  mlcost 
Replace  qty  with  cqty-mlqty 
Replace  posted  with  .F. 

Replace  ci  with  "1500", type  with  "RL" 
Replace  misc  with  .T. 

Exit 

Case  M1QTY-Cqty>=0 

Replace  vn  with  vnl, posted  with  .T. 
Store  MIQTY-CQTY  to  MIQTY 
If  H1QTY=0 
Exit 
Endif 

Endcase 
Skip 
Enddo 
Select  B 
Seek  STOCKN 

Replace  ONHAND  with  MONHAND+MQTY 
Replace  TVALUE  with  (MONHAND+MQTY) *MCOST 
Endif 

*.. Check  If  it  a  stockout  refill  item. 

Select  F 

Use  STOCKOUT  index  STOCKOUT 
Set  relation  to  sn  into  property 
Seek  stockn 
If  Eof()  .OR.  Bof() 

Stockn  =  space (16) 

Select  D 
Loop 
Endif 

Store  'X'  to  mprint 
Do  while  .T. 

@  10,15  clear  to  14,65 
@  10,15  to  14,65 

d  11,17  Say  "  You  have  a  delayed  delivery." 

@  13,17  Say  'Ready  Printer  ?  ’  get  mprint  pict  "!" 
Read 

If  mprint  =  'Y' 
set  print  on 

@  13,17  Say  "Printing . " 

Set  console  off 
Exit 
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Endif 

Enddo 

Do  while  .NOT.  Eof()  .AND.  SN=STOCKN 
If  POSTED 
skip 
loop 
Endif 

Store  REQNO  to  MREQNO 
Store  Cl  to  MCI 
Store  OUTDATE  to  MDATE 
Select  D 
Seek  MCI 

Store  cdesc  to  mcdescl 
Select  F 


■> 

■> 

7 
7 

7  7 
7  ' 

?  '  From 

77  I 

?‘  '  To 

7  I 
77 
7  I 

?  'No  Stock  number  Description 
??  '  Onhand  Unit  Quantity  price 
??  '  Total' 

?  '  1  '■♦■sn+'  ' +rtrim(b->nm) 

space(l5  -  LEN( rtrim(b->nm) ) ) 
tr (b->onhand)+ '  '+  b->unit 


ISSUE  LIST' 

Page^ 

'+  'The  150  Infanry  Division' 

Date  :  '+DT0C(date()) 

'+  mcdescl 

t 

Request  Number  ;  '+mreqno 


77 
7  7 


s 


??  str(qty)  +  str(b->unitcost}+str(b->unitcost*qty) 
Store  b->unitcost*qty  to  total 

7  • 


Eject 
Store  qty  to  mqtys 
Replace  posted  with  .T. 

Replace  refilldate  with  Today 

Select  D 
Seek  mci 

Replace  expend  with  expend-total 

Store  expend  to  mexpend 

Replace  rundoh  with  fundoh>mexpend 

Select  B 

Replace  onhand  with  monhand  -mqtys 
Replace  tvalue  with  (roonhand-mqtys)*mcost 

Select  A 
Append  blank 

Replace  SN  with  STOCKN,  Cl  with  MCI,  QTY  with  MQTYS,  TYPE  with  "RD" 
Replace  REQNO  with  MREQNO,  UNITCOST  with  MCOST,  POSTED  with  .T. 
Replace  DAiE  with  MDATE, 

Select  F 
Skip 


MISC  with  .T.,  VN  with  VNl 
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Enddo 

Set  print  off 
Set  console  on 
Stockn  =  space (16) 

Select  D 
Enddo 

Close  databases 
Clear 

* . *  Eof  TRSTOCK.prg  * 


g  TRTURN-IN 

**:^:*rA****A**^*x**:Ar*  TRTURNIN  •  PRG  *:^:A:*****^it:fcA^**A*^*^*:^:fc**:^^^A*'*** 

*  *  7^  *  *  *  A  *  ★  K  ^  *  A  *  A  A  *  *  ^  *  *  *  :^  *  X  A  *  *  *  *  *  *  *  ★  A  *  *  A  :^  *  *  *  *  *  jV  ★  *  *  *  A  *  A  A  *  *  A  A  ★  A  ^ 

*  Program..:  Turn-in. prg  * 

*  Author...:  PARK,  Taeyong  * 


*  Date .  Sept  2,  1987 

*  Motes . Record  Request  for  turn-in  from  Customer  into 


*  Master  and  property  book.  * 

A A A AAA AAA AA AAA A A A AAA AAA A A A A A  . AAxAA AAAAA AA AAAAAAAAA A AA AAAA A A A AAA AAAAAA A A 
S6l6Ct  6 

Use  PROPERTY  index  SNPROPER 
Select  C 

Use  ASL  index  INASL 
Select  D 

Use  CUSTOMER  index  CICUST 
Select  E 

Use  BATCH  index  SNCIBAT,CIBAT 

Store  "The  150  Infantry  Division"  to  Mcdesc2 

Store  "X"  to  checks , fcneck.Zcheck 

If  mcil  =  "  " 

Close  databases 
Return 
Endif 

Xcheck  =  .T. 

Do  vhile  Xcheck 

Store  mcil  to  custm 
Do  while  .T. 

Clear 

@  10,15  clear  to  14,65 
@  10,15  to  14,65 

@  11,17  Say  "  Customer  Code  :  "  Get  mcil  pict  "9999" 

#  13,17  Say  "  Stock  Number  :  "  Get  stockn  ; 

Pict  "9999-99-999-9999" 

0  15,20  Say  "Leave  blank  Stock  Number  to  Exit" 

Read 
Select  D 
Seek  mcil 
If  .NOT.  foundO 

0  16,17  Say  "Not  found  "+mcil+"  Code  customer...." 

0  17,17  Say  "  Please  check  the  code,  or  add  customer  first" 
Store  "X"  to  ANS 
0  16,15  clear  to  18,70 

0  17,17  Say  "Do  you  want  Add  the  customer  Now?  "  ; 
get^ans  pict  "!" 

If  ANS  =  "Y" 

Store  mcil  to  mci 
Do  ADDCUST 
Endif 
Else 

Store  cdesc  to  mcdescl 
Exit 
Endif 
Enddo 

If  mcil  <>  custm 


(?  10,15  clear  to  14,65 
@  10,15  to  14,65 

@  12,20  Say  "This  data  will  not  be  added . " 

??  Chr(7) 

N  =  0 

Do  while  N  <  35 
N=N+1 
Enddo 
Exit 
Endif 
Select  B 

StockN  =  Upper (StockN) 

Seek  StockN 
Do  case 

Case  StockN  =  "  " 

Select  E 
Pack 

Xcheck  =  .F. 

Case  .NOT.  found() 

Clear 

@  13,10  say  stockn  +  "  is  Not  found  in  your  property  book" 
@  15,20  Say  "Please  check  STOCK  NUMBER  and  try  again" 

Wait 

Case  foundO 

mcost  =  unitcost 
tnonhand  =  onhand 

Select  E 
Append  Blank 

Replace  Cl  with  MCIl,  Type  with  Mtype,  SN  with  StockN, ; 
Unitcost  with  Mcost,  Date  with  Today, Regno  with  Mreqno 
Replace  POSTED  with  .F. 

Do  while  .T. 

Set  format  to  turnin 
Read 

zcheck  =  upper(zcheck) 

If  zcheck  =  "y' 
mqty  =  qty 

Store  Reqno  to  mreqno 
Set  format  to 
Exit 
Endif 
Enddo 
Clear 

Stockn  =  space (16) 

Endcase 

Enddo 

Do  TRTUNLST 
Close  Databases 
Release  all 
Return 

* - - - - — gg£  turnin. prg  * - - - - - - — * 


h.  TRTUNLST 

TRTUNLST .  PRG  **********^^>t**************** 

*  Program. :  TRTUNLST. prg  * 

*  Author..!  Park,  Taeyong  * 

*  Date _ !  Sept  2,  1987  * 

*  Notes...!  Report  generate  program,  called  from  TRTURNIN.prg  * 

Clear 
Select  E 
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Set  relation  to  sn  into  property 

Store  'X'  to  mprint 
Store  0  to  total, mtotal.Z 
Do  while  .T. 

Clear 

@  10,15  to  15,65 

@  12,25  Say  'Ready  Printer  ?  '  get  mprint  pict 
Read 

If  mprint  =  'Y' 

Set  print  on 

@  14,25  Say  "Printing . " 

Set  console  off 
Exit 
Else 

@  15,  15  Say  "Be  ready  printer  >  " 

Wait  ^  ^ 

Endif 

Enddo 

Store  Val(substr(Vnl,8,4))  to  mvn 
Hvn  =  100000+mvn+l 

Vnl  =  "1500QM-"+substr(str(mvn) ,7,4)+"-"+2ulu 
Store  1  to  pagectr,linectr,N 
Go  top 

Do  while  .NOT.  eof() 

If  type  =  mtype  .AND.  ci=Custm 
If  .NOT.  posted 

If  linectr*40*(N  -  1)  +  1 

Mvn  =  Val(Substr(Vnl,8,4)) 

Mvn  =  10000+mvn+l 

Vnl  =  "1500QM-"+Substr(str(Mvn) ,7,4)+"-"+Zulu 


7 

77 
7 ' 
7 

77 
77 
7 ' 
7 

77 
7 ' 
7 


'  (Turn-In) 

From  s  The  150  Infantry  Division 


ISSUE  LIST' 

Page  '  +  str(pagectr,2) 


Date 
To  : 


:  '+DT0C(date()) 
'+mcdescl 


Voucher  No 


+Vnl 


No  Stock  number  Description  ' 
Quantity  Unit  price  Total  Reuasble' 
^ Store  pagectr  +  I  to  pagectr 
Endif 


Store  linectr  to  Z 
If  misc 

??^'U^4tr(qtyH”'^+  b!^5j;i'J^‘’"^™">^®P*‘=*^15-LEN(rtrim(b->nm) ) ) 

??  str(b->unitcost)  +  str(b->unitcost'*qty)  +  '  ' 

??  Misc 


Store  b->unitcost*qty  to  mtotal 
Store  total-*-mtotal  to  total 
Replace  posted  with  .T. 

Store  B->onhand  -  qty  to  monhand 
Select  B 


Replace  onhand  with  monhand 
Replace  tvalue  with  monhand*unitcost 
Select  E 
Else 

?  Str{Z,4)+'  '+SN+'  '+rtrim(b->nm)+; 
space (l5-LEN(rtrim(b->nm))) 

??  ' '+str(qty)+' '+b->unit+' 

??  misc 

Replace  posted  with  .T. 

Store  total  to  total 
Endif 
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I 


Replace  vn  with  vnl 
If  linectr=40*N 


??  'Grand  Total  '+  str{total) 
?  '  ' 

?  '  ' 

?  '  ' 

?  'Material  Management  NCO  : 
”  'Date  : _ 7 _ /.  ' 


?  'Material  Management  officer  s. 

??  'Date  :  _ 7 _ / _ ’ 

Eject 
N  =  N  +  1 
Endif 

linectr  =  linectr  +  1 


Endif 

Endif 

Skip 

Enddo 


Grand  Total  :$'  +  str(total) 


??  ' 

? '  ' 

??  ' 

■i  ’  ' 

?  '  ' 

?  I 

?  • 

’  'Matrial  Management  NCO 


Authorized  to  turn-in 
by 


I 


Date 


?  'Material  Management  Officer 

??  '  Date  :  _ /  / _  ' 

linectr  =  1 
pagectr  =  1 
Store  0  to  total 
Eject 

Set  print  off 
Set  console  on 
Return 


■*  Eof  TRTUNLC.prg  *- 


i.  TRCANCEL 


********************************************************************** 

********************  TRCANCEL . PRG  ******************************** 
********************************************************************** 

*  Module  name....!  TRCancel.prg  * 

Author . Park,  Taeyong  * 

Date . .  Sept  20.  1987  * 

Purpose . Cancel  the  request  for  issue  item  * 

Called  by .  Transact. prg  * 

Modules  called  :  None  * 

********************************************************************** 


Use  Master  index  SCTMAST 

Store  "N"  to  Checks 

Store  Stockn  to  Msn 

Store  "1500"  to  Mcust 

Store  Msn+Mcust+"RL"  to  Msncu 

Seek  Msncu 

Do  case 

Case  STOCKN  ■  "  " 

More  »  .F. 

??  Chr(7) 

(?  11,15  clear  to  15,65 
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@  11,15  to  15,65 

@  13,17  Say  "Please  Enter  Stock  number  you  want  to  cancel  !  " 
N  =  ,0 

Do  while  N  <  35 
N  =  N+1 
Enddo 
Case  foundO 

Set  format  to  CANCMAST 
Read 

If  checks=  "Y" 

Replace  Vn  with  "CANCEL-0000-0000" , posted  with  .T. 

Store  unitcost  to  mcost 
Store  reqno  to  mreqno 
Store  qty  to  mqty 
Append  Blank 

Replace  sn  with  stockn,ci  with  "1500", Reqno  with  mreqno 
Replace  Qty  with  Mqty, Type  with  "CL" , unitcost  with  mcost 
Replace  Misc  with  .T., posted  with  .T.,Date  with  today 
Replace  Vn  with  "Cancel-0000-0000" 

More  =  .F. 

Endif 

Set  format  to 

Case  .NOT.  found() 

@  11,15  clear  to  15,65 
@  11,15  to  15,65 

@  13,18  Say  "You  never  request  "+stockn+"  code  item  !" 

??  chr(7) 

N=1 

Do  while  N  <35 
N=N+1 
Enddo 
More  =  .F. 

Endcase 

Close  Databases 
Return 

Eof  Cancel. prg 


j  TRACKING 

*********************************************************************** 

***********************  TRACKING. PRG  ***************************** 
*********************************************************************** 

*  Module  name . Trancking.prg  * 

*  Author . .  Park,  Taeyong  * 

*  Date .  Sept  20.  1987  * 

*  Purpose . Tracking  the  record  of  transaction.  * 

*  Called  by .  Transact. prg  * 

*  Modules  called  :  None  * 

Set  talk  off 
Set  echo  off 
Use  master 

Index  on  Ci+SN  to  CSMAST 

Use  master  index  sctmast, CSMAST 

title  ®  "Sales  Tracking" 

Mok="Y" 

Do  while  .T. 

Clear 

@  4,25  say  title 
@8,15  Say  "Options" 

@  10,17  Say  "1.  Detail  Sales" 

@  11,17  Say  "2.  Summary  Sales" 

@  12,17  Say  "3.  Detail  Customer  Sales" 

@  13,17  Say  "4.  Summary  Customer  Sales" 

@  15,17  Say  "5.  Return  to  main  menu" 

@  17,15  Say  "Enter  Option:  " 
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@  2,1  to  23,75 
Store  ""  to  sel 
(?  17,29  Get  sel 
i=0 

Do  while  i*0 
i=inkey( ) 

If  chrti)$"12345" 

Exit 

Endif 

i=0 

Enddo 

@  17,29  Say  Chr(i) 

If  chr(i)=*5" 

Exit 

Endif 

Store  spacers)  to  Enddate 
Store  Space(8)  to  begdate 

@  21,9  Say  "Enter  period  for  sales  tracking  ( 
@  21,42  Get  begdate  pict  "99/99/99" 

@  21,53  Get  Enddate  pict  "99/99/99" 

Read 

Store  Ctod(begdate)  to  begdate 

Store  Ctod(Enddate)  to  enddate 

Set  filter  to  Date>begdate  .AND.  Date<Enddate 

Do  case 

Case  chr(i)="l" 

Set  Order  to  1 
Do  setup 

Report  form  tranrpl 
Case  chr(i)="2" 

Set  Order  to  1 
Do  setup 

Report  form  tranrp2 
Case  chr(i)="3" 

Set  Order  to  2 
Do  setup 

Report  form  tranrp3 
Case  chr(i)="4" 

Set  Order  to  2 
Do  setup 

Report  form  tranrp4 
Otherwise 
Loop 

Endcase 

If  Upper(Mok)="Y" 
set  console  on 
Set  print  off 
Set  Order  to  1 
Else 

@  24,17  Say  "Press  any  key  to  continue..." 
Wait"" 

Endif 

Clear 
Enddo 

Close  databases 
Erase  cimast.ndx 
clear 
Return 

* - *  Eof  TRacking.prg  * 
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3.  REPORTS 

a.  REPORTS  MENU 

**********************  REPORTS .PRG  ******************************* 

********************************************y5*****y,**y5**y5*^yj^^^^^^^^^^^ 


*  Module  name 

*  Author . 

*  Date . 

*  Purpose . . . . 


*  Called  by . 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local.. 


Reports .prg 
Park,  Taeyong 
Sept  15.  1987 

To  generate  report  to  higher  command 
or  to  use  in  division 

Pmain.prg 

RPTSR.prg  RPSOR.prg  RPOST.prg  RPEIS.prg 

Reportd(last  report  date) 

B igda  te , Endda  te , Mse 1 


DO  WHILE  .T. 

Store  space(8)  to  begdate , endda te 
Store  "X"  to  Msel 

CLEAR 

@  1,15  TO  3,55  double 
@  4,1  TO  23,77 
@  6,3  TO  21,38 
@  5,4  TO  7,28 
@  6,5  SAY  SPACE(23) 

@  6,41  TO  12,75 
@  5,42  TO  7,59 
@6,43  SAY  SPACE (16) 

@  14,41  TO  21,75 
@  13,42  TO  15,59 
@  14,43  SAY  SPACE (16) 

I  2,25  SAY  "REPORT  S" 

@6,6  SAY  "  Type  of  Reports" 

@6,44  SAY  "Information" 

@  14,44  SAY  "Time  Period" 

@9,6  SAY  "1  s  Transaction  Status  Report" 

@  10,10  SAY  "(DA  form  3183)" 

@12,6  SAY  "2  :  Stockout  Report" 

@  13,10  SAY  "(DA  form  3184)^ 

@15,6  SAY  "3  !  OST  Report'' 

@  16,10  SAY  "(DA  form  3185)" 

@  18,6  SAY  "4  i  Combat  Essential  Item" 

@  19,10  SAY  "Stockout  Report" 

@  20,10  SAY  "(DA  form  3186)" 

@  8,  46  SAY  "Last  TSR  Report  Date" 

@  9,  50  SAY  TSRDATE 

@  11,46  SAY  "Today...."  +DTOC(TODAY)+"("+zulu+")" 

@  17,45  SAY  "Biginning  Date  -  Ending  Date" 

@  19,50  Say  "(  -  )" 

SET  COLOR  TO  N/W 

@  19,51  SAY  Begdate  Piet  "99/99/99" 

@  19,62  SAY  Enddate  Piet  "99/99/99" 

SET  COLOR  TO 

It0RE^""^T0  sIl^**"  (1  -  or  0  to  return)  :  ;1" 

@  22,60  SAY  SEL 

. The  following  lines  are  for  select  loop 

DO  WHILE  i=0 
i=IHKEY() 

@  22,60  SAY  "" 

IF  UPPER(CHR(i))S"01234" 

@  22,60  SAY  CHR(I) 

EXIT 
END  IF 


i=0 

ENDDO 

If  CHR(I)  .=  'O' .OR.  1=27 
?  Chr(7) 

Clear 
Exit 
END  IF 
DO  CASE 

Case  CHR(I)  =  '2' 

@  8,  46  SAY  "Last  SOR  Report  Date" 

@  9,  50  SAY  SORDATE 
Case  CHR(I)  =  '3' 

@  8,  46  SAY  "Last  OST  Report  Date" 

@  9,  50  SAY  OSTDATE 
Case  CHR(I)  =  '4' 

@  8,  46  SAY  "Last  EIS  Report  Date" 

@  9,  50  SAY  EISDATE 

ENDCASE 

@  19,51  GET  Begdate  Piet  "99/99/99" 

@  19,62  GET  Enddate  Piet  "99/99/99" 

READ 

IF  BEGDATE  ="  "  .OR.  ENDDATE="  " 

?  CHR(7) 

@  24,15  SAY  "YOU  HAVE  TO  ENTER  THE  PERIOD" 
K=0 

DO  WHILE  K<40 
K=K+1 
ENDDO 
LOOP 
END  IF 

Store  Ctod(begdate)  to  begdate 
Store  Ctod( enddate)  to  enddate 
DO  CASE 

Case  CHR{I)  =  '1' 

Do  RPTSR 

STORE  TODAY  TO  TSRDATE 
Case  CHR(I)  =  '2' 

DO  RPSOR 

STORE  TODAY  TO  SORDATE 
Case  CHR(I)  =  '3' 

DO  RPOST 

STORE  TODAY  TO  OSTDATE 
Case  CHR<I)  =  '4' 

DO  RPEIS 

STORE  TODAY  to  EISDATE 
OTHERWISE 

?  CHR(7) 

ENDCASE 
ENDDO 
RETURN 


•*  Eofj  REPORTS. prg  *- 


b.  RPTSR 

AAA  AAA 

A AA AAAAAAAAAAAAAAAAAA  RPTSR*FRG  AAAAAAAAAAAAAAAAAAAA AAA AAAA AA 

AAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A 

*  Module  name . RPTSR. prg  * 

*  Author . I  Park,  Taeyong  * 

*  Date . .  Sept  15.  1987  * 

*  Purpose .  Generate  Transaction  history  report  * 

*  to  higher  command.  * 

*  Called  by .  REPORTS. prg  * 

*  Modules  called  i  * 

*  Variales  used. . :  * 

*  Local..:  Begdate,  Enddate,  Classn,  Type  * 
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Clear 
Select  B 

Use  PROPERTY  index  snproper 
Do  while  .T. 

Store  "  "  to  Classn,  Mprint 

Store  "  Transaction  Status  Reports"  to  Mtitle 

Do  Select 

Store  " (Date>=Begdate  .AND.  Date<=Enddate) "  to  period 
Store  "Type='RL' .OR.TYPE=‘IL' .OR.TYPE='CL' .OR.TYPE='TL"'  to  tcond 
Store  "&{>ERIOD"  TO  CNl 
Select  A 

Use  IIASTER  index  sctmast 
Copy  to  Mlmast  for  &tcond 


Do 


case 

Case 


sii  ^  II 


•10) 

11 


Select  B 

Index  on  Class+Sn  to  CSPROPER 
Select  A 
Use  Mlmast 

Copy  to  STMAST  for  &cnl 
Exit 

CAse  u|per^^chr(i) )="2" 

@  14,30  Say  "Enter  Class  number (1 
@  15,30  Say  "  0  for  10 

Read 
If  classn  =  "0" 

Store  "10"  to  Classn 
Endif 
Select  A 
Use  MIMAST 

Copy  to  XTMAST  for  &period 

INDEX  ON  SN  TO  XTMAST 

USE  XTMAST  INDEX  XTMAST 

Set  relation  to  sn  into  B 

Copy  to  STMAST  for  b->class='&classn' 

Use  STMAST 
Erase  xtmast.dbf 
Erase  xtmast.ndx 
Exit 

Case  upper(chr(i) )="3" 

Sel='h" 

@  16,30  Say  "Enter  stock  number"  get  stockn; 
Diet  '9999-99-999-9999' 

Read 
Select  A 
Use  NIHAST 

Index  on  sn  to  MIMAST 
Use  MIMAST  INDEX  MIMAST 

Store  "Sceriod  .AND.  sn='&stockn' "  to  conditl 

Copy  to  STMAST  for  &conditl 

Exit 

Case  upper(chr(i) )="0" 
close  databases 


get  classn  pict 


Return 

Otherwise 

?  chr(7) 

Endcase 
Enddo 
Select  A 
Use  STMAST 

Index  on  SN+TYPE+CI  to  STMAST 
Use  STMAST  index  stmast 
Erase  MIMAST. dbf 
Erase  MIMAST. ndx 
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Do  printer 


IIS 


store  1  to  linectr,pagectr,N, liner 

Store  0  to  mdi,reqqty,canqty,recqty,turnqty,DInow,mgty 
Store  0  to  sreqqty,smdi,scanqty,srecqty,sturnqty,sdinow 

If  EofO 

d  10,18  Clear  to  14,58 
d  10,18  to  14,58 

d  11,20  SAY  "  You  Never  Requested" 

d  13,20  Say  "  Press  any  key  to  return...." 

Wait  "" 

Close  databases 
Erase  STMAST.DBF 
Erase  STMAST.NDX 
Return 
Endif 
select  A 
Clear 
Go  top 

* . Holds  one  of  item  from  property  file 

Do  while  .NOT.  Eof() 

Store  SN  to  stockn 
select  B 

store  class  to  classn 
Store  nm  to  mnm 
Select  A 
Seek  stockn 
If  found( ) 

Sum  qty*Unitcost  for  type="RL" 

Store  qty*unitcost  to  fttqty 
Sum  Qty*unitcost  for  type="IL" 

Store  qty  to  ILqty 
MDI=Rlqty  -  Ilqty 
Seek  stockn 

Do  while  .NOT.  Eof()  .AND.  sn»stockn 
Store  qty*unitcost  to  mqty 
Do  case 

type  =  "RL" 
fteqqty  =  reqqty+mqty 
Type  *  "CL" 
canqty  •*  Canqty+mqty 
Type  =  "IL" 
ftecqty  *  Recqty+mqty 
Type  *  "TL" 

Turnqty  »  Turnqty+mqty 

Endcase 
Skip 
Enddo 

Store  MDI+reqqty-Canqty-Recqty  to  DInow 
If  iiner»l 


.AND.  date 
.AND.  date 


<  begdate 

<  begdate 


Case 

Case 

Case 

Case 


7 

7 

7 

7 

77 

7 

77 

?' 

7 

7 

7 

7? 

7* 

7? 

y 

7 


Transact  Status  Report' 
Page  *  +  str{pagectr ,2) 


From  I  The  150  Infanr\ 


Date 

Division^ 


:  *+Dtoc(date()) 


To  I  The  3333  Logistics  Supprot  Command' 


*  From  To  ' 

I 

Dtoc (begdate )+'  -  '+Dtoc(enddate) 


No 


Stock  number  Description 


??  '  D/Ibeg  Req  st  Cancel  l^ec  ve  Turnin  D/Inow' 
Store  pagectr  +  1  to  pagectr 


Endif 

Store  linectr  to  Z 
?  Str(Z,4)+'  '+stockn+' 


'+rtrim(mnm)+space(15  -  LEN(rtrim(mnm) ) ) 
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??  ' ' +substr{str(MDI) ,5,6)+'  '+  substr{Str(reqqtY 

??  substr(str{Canqty) ,4,7)+substr(str(Recqty) ,4,7 

??  sub,str(str(turngty)  ,4,7)+substr(Str(DInow)  ,4,7 

Store  Smdi+mdi  to  Smdi 

Store  Sreqqty+reqqty  to  Sreqqty 

Store  Scanqty+canqty  to  Scanqty 

Store  Srecqty+recqty  to  Srecqty 

Store  Sturnqty+turnqty  to  Sturnqty 

Store  Sdinow+dinow  to  Sdinow 

Store  0  to  nidi,reqqty,canqty  recqty,turnqty,DInow 
Linectr=linectr+1 
Liner=  liner+1 
If  liner=40*N 


,4,7) 


Grand  Total  '+  str(total) 


?  'Material  Management  NCO  : 

??  'Date  :  _ 7 _ /  '  ■ 

?  'Material  Management  Officer 

??  'Date  :  _ 7 _ / _ ' 

Eject 
N  =  N  +  1 
Endif 
Endif 
If  sel="l" 

If  linectr=l 
Select  B 
Skip 

Store  class  to  classn 
Loop 
Endif 
Select  B 
Skip 
Endif 

If  B->Class<>Classn  .OR.  Eof() 

?  'Class  '+classn+' 


??  'Subtotal  '+'  '+substr(str(smdi) ,5,6)+’  ' 

??  substr{str(sreqqty),4,7)+  substr(str(Scanqty) ,4,7) 
??  Substr(str(SrecqtyK4,7)+Substr(Str(Sturnqty),4,7) 
??  substr(Str(Sdinow),4,7)  i  /  >  >  > 


Store  0  to  sreqqty, smdi, scanqty, srecqty, sturnqty, sdinow 
Store  1  to  linectr 
Liner=liner+3 
Endif 
Enddo 
If  liner>l 


?  'Matrial  Management  NCO  : 

??  ^  '  Date  :  _ / _ 

?  'Material  Management  Officer 

??  '  Date  :  _ ! _ / _  ' 

linectr  =  1 
pagectr  =  1 
Endif 

If  mprint="Y" 

Eject 

Set  console  on 
Set  print  off 
Endif 

Set  color  to  N/W 
Wait 


Set  color  to 

Store  space(16)  to  stockn 
Clear 

Close  Databases 
Erase  STmast.dbf 
Erase  stmast.ndx 
If  sel="l" 

Erase  csproper.ndx 
Endif 

@  9,15  to  15,64  double 
@  11,25  Say  "Finished  report  for  TSR  " 

@  13,25  Say  "Period  "+Dtoc (begdate)+"  -  "+Dtoc (enddate ) 
M=0 

Do  while  n<35 
N=N+1 
Enddo 
Clear 

Store  Space(16)  to  stockn 

Release  all 

Return 

* . *  Eof  RPTSR.prg  * . 


c.  RPOST 


^■k-kit-k-ki^'k-k-k^'k'k^-k-k-k'k  RPOST .  PRG  **^***7^r**A**A*A*****T*f  J>E3t3<rTt****** 

'k^'k^nif-k'k-k’k-kif^^-kiK'k-k-k-kifif-k-k-k^-kic-kifif'k’k-k^'k-k'k'k'k-k'k’k-k'kiKifit’kAif’k^'ki^i^^'k'k'k'kif^^iK-kidK'k^ 


Module  name 

Author . 

Date . 

Purpose .... 
Called  by . . , 
Modules  called 


RPOST. prg 
Park,  laevong 
Sept  25.  1987 

Generate  Oder  shipping  time  report 
Reports .prg 
None 


★ 

■k 

k 

k 

k 

k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


Clear 
Select  B 

Use  PROPERTY  index  snproper 
Do  while  .T. 

Store  "  "  to  Classn,  Mprint 

Store  "ORDER  SHIPPING  TIME  REPORT"  to  mtitle 

Do  select 

Store  " (Date>=Begdate  .AND.  Date<*Enddate) "  to  period 
Do  case 

Case  upper(Chr(i))="l" 

Sel='h" 

Select  B 

Index  on  Class+Sn  to  CSPROPER 
Select  A 
Use  master 

Store  "type='RL'  .AND.&period"  to  conditl 

Copy  to  rLMAST  for  Sconditl 

Store  "tvpea'IL'  .AMD.&period"  to  condit2 

Copy  to  iLMAST  for  &condit2 

Exit 

CAse  upper(chr(i) )="2" 

§el=''2" 

@  14,35  Say  "Enter  Class  n>jmber(l-10)  "  get  Classn 
@  15,35  Say  "  (0  for  10)" 

Read 

If  classn  =  "0" 

Store  "10"  to  Classn 
Endif 
Select  A 

Use  master  INDEX  sctmast 
Set  relation  to  sn  into  B 

Store  "type='RL'  .AND.  &period  .AND.  b->class='&classn"' ; 
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to  conditl 

Copy  to  RLMAST  for  &conditl 

Store  "type='IL'  .AND.  &period  .AND.  b->class= ' &classn 
to  conditz 

Copy  to  ILMAST  for  &condit2 
Exit 

Case  upper(chr(i) )="3" 

Sel=''3" 

0  16,35  Say  "Enter  stock  number"  get  stockn; 

Diet  '9999-99-999-9999' 

Read 
Select  A 

Use  master  INDEX  setmast 
Set  relation  to  sn  into  B 

Store  "type='RL'  .AND.  &period  .AND.  sn= ' &stockn ' " ; 
to  conditl 

Copy  to  RLMAST  for  &conditl 

Store  "type='IL'  .AND.  Seperiod  .AND.  sn= ' &stockn' "  ; 
to  conditz 

Cop^  to  ILMAST  for  &condit2 


Case  upper (chr(i) )="0" 

Close  databases 
Return 
Otherwise 

?  chr(7) 

Endcase 
Enddo 
Select  A 
Use  RLMAST 

Index  on  SN+VN  to  SRRL 
Use  RLMAST  index  SRRL 
If  EofO 

@  10,18  Clear  to  14,58 
@  10,18  to  14,58 

@  11,20  SAY  "  You  Never  Requested" 

@  13,20  Say  "  Press  any  key  to  return.... 

Wait  "" 

Close  databases 
Erase  RLMAST. DBF 
Erase  SRRL.NDX 
Return 
Endif 


Select  C 
Use  ILMAST 

Index  on  SN+VN  to  SRIL 
Use  ILMAST  index  SRIL 
If  Eof() 

@  9,18  clear  to  13,60 
0  9,18  to  13,60 

d  10,20  SAY  "You  Never  Received  the  requested  item" 

@  12,20  Say  "Press  any  key  to  return...." 

Wait  "" 

Close  databases 
Erase  RLMAST. DBF 
Erase  SRRL.NDX 
Erase  ILMAST. DBF 
Erase  SRIL.NDX 
Return 
Endif 

Store  0  to  SNl ,SN2,SN3,SN4,SN5,SM1QTY,SM2QTY,SM3QTY,SM4QTY,SM5QTY 

Store  0  to  N1,N2,N3,N4,N5,M1QTY,M2QTY,M3QTY,M4QTY,M5QTY 

Store  0  to  STOTN,TOTQTY,TOTN,STOTQTy,mdate 

Store  1  to  linectr,pagectr,N, liner 

Go  top 

Do  printer 

Clear 

select  A 

Go  top 
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Holds  one  of  item  from  property  file 


Do  while  .NOT.  Eof() 

Store  SN  to  stockn 
select  B 

store  class  to  classn 
Select  C 

*  . Find  the  stock  number  which  is  the  same  as 

*  . at  the  file  which  is  sorted  type  "IL" 

Seek  stockn 


If 


found( ) 

Do  while  .NOT.  Eof{)  .AND.  sn=stockn 
Store  Date  to  mldate 
Store  VN  to  MIVN 
Store  Stockn+MIVN  to  mstock 

*  . Find  the  stocknumber  which  is  the  same  voucher 

*  . at  the  file  which  is  sore  ted  by  type  "RL" 

Select  A 

Seek  mstock 

If  foundO 

Store  date  to  m2date 
Store  qty  to  mqty 
Store  mldate-mZdate  to  mdate 
Do  case 

Case  mdate<7 
N1=N1+1 

Mlqty=Mlqty+mqty 
Case  mdate-7<7 
N2=N2+1 

M2qty=M2qty+mqty 
Case  (Mdate>=l5  .and.  Mdate<30) 

N3=N3+1 

M3qty=M3qty+mqty 
Case  {Hdate>=30  .and.  Mdate<60) 

N4=N4+1 

M4qty=M4qty+mqty 
Case  (Mdate>*6u  .and.  MdateOO) 

N5=N5+1 

MSqty^MSqty+mqty 

Endcase 

Endif 

Store  N1+N2+N3+N4+N5  to  TOTN 
Store  M1QTY+M2QTY+M3QTY+M4QTY+M5QTY  to  TOTQTY 
Select  C 
Skip 
Enddo 
If  liner=l 

7 


■> 

7 

77 

7 

77 

7 

7 

7 

7 

7 

77 

7 

7? 

7 

7 


Report 


Oder  Shipping  Time' 
Page  '  +  str(pagectr ,2) 

Date  I  ' +Dtoc(date() ) 


To 

From 


To 


j  The  3333  Logistics  Supprot  Command' 
:  The  150  Infanry  Division' 


Dtoc(enddate)+' ) ' 


From  ' 

( '+dtoc(begdate)+' )  -  (‘ 


No  Stock  number  ' 
??  '  Total  7days 

??  '  eOdays' 

?  '  ' 

??  'Total  Q  ty  Freq  Q  ty 

??  'Freq  Q  ty^ 

store  pagectr  +  1  to  pagectr 


14days 
Freq  Q 


ty 


30days 
Freq  Q  ty 


Endif 


Store  linectr  to  Z 

?  Str(Z,3)+'  '+stockn+substr{str(TOTN) ,5,6) 

??  substr(str(TOTQTY) ,5,6) 

??  substr ( str(Nl ) , 5 ,6)+substr(Str (MIQTY) ,5,6) 

??  substri str (n2) ,5,6)+substr(str(H2QTY) ,5,6) 

??  Substr (str(N3) , 5 ,6)+substr( str (M3QTY) ,5,6) 

??  substr(str(N4) ,5,6)+substr(Str(H4QTY) ,5,6) 

Store  STOTN+TOTN  to  STOTN 

Store  STOTQTY+TOTQTY  to  STOTQTY 

Store  Sm+Nl  to  SNl 

Store  SHIQTY+MIQTY  to  SMIQTY 

Store  SN2+N2  to  SN2 

Store  SM2QTY+M2QTY  to  SM2QTY 

Store  SN3+N3  to  SN3 

Store  SM2QTY+M2QTY  to  SM2QTY 

Store  SN4+N4  to  SN4 

Store  SM4gTY+M4(2TY  to  SM4QTY 

Linectr=linectr+1 

liner=  liner+1 

If  liner=40*N 

?  '  ' 

?  '  ' 

?  I  I 


?  '  ' 

?  'Material  Management  NCO  :  _ 

??  'Date  :  _ 7 _ /  ' 

?  'Material  Management  Officer  : 

??  'Date  :  _ 7 _ / _ ' 

Eject 
N  =  N  +  1 
Endif 


I 


Endif 
If  sel="l" 

If  linectr*! 

Select  B 
Skip 

Store  class  to  classn 
Loop 
Endif 
Select  B 
Skip 
Endif 

If  (b“>class<>classn)  .OR.  EOF() 

?  'Class  '+classn+'  - - 

77  i_- - ....... — .................................I 

?  '  Subtotal  ' 

??  substr(str(STOTN) ,5,6)+substr(str(ST0TQTY) ,5,6) 

??  substr(str(sNl) , 5 ,6 )+  substr(Str(SMl6TY) ,5,6) 

??  s'abstr(str(sN2)  ,5,6)+substr(str(SM2QTY)  ,5,6) 

??  Substr (str(SN3) ,5 ,6)+substr(str (sM3QTY) ,5,6) 

??  substr(str(SN4) , 5 ,6)+substr(Str(SM4QTY) ,5,6) 

■>  I  I 

Store  0  to  SN1,SN2,SN3,SN4,SN5,SM1QTY,SM2QTY,SM3QTY,SM4QTY,SM5QTY 
Store  0  to  N1,N2,N3,N4,N5, MIQTY, M2gTY,M3QTY,M4QTY,M5QTY 
Store  0  to  STOTN, TOTQTy,TOTN, STOTQTY, mdate 
Store  1  to  linectr 
Liner=liner+3 
Endif 
Enddo 

If  liner  >  1 

7  I  I 

7  I  I 

?  'Matrial  Management  NCO  ;  _ _ ' 

??^'  Date  :  _ / _ |./ _  ^ 

?  'Material  Management  Officer  :  _ ' 

??  '  Date  :  _ / _ / _  ' 

Endif 
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If  mprint="Y" 

Eject 

Set  console  on 
Set  print  off 
Endif 

Close  databases 
Erase  Csproper.ndx 
Erase  RLHAST.DBF 
Erase  SRRL.NDX 
Erase  ILMAST.DBF 
Erase  SRIL.NDX 
Set  color  to  N/W 
VJait 

Set  color  to 
@  9,15  clear  to  15,64 
@  9,15  to  15,64  double 
@  11,25  Say  "Finished  report  for  OST  " 

@  13,25  Say  "Period  "+Dtoc {begdate )+"  -  "+Dtoc(enddate) 

N=0 

Do  while  n<35 
N=N+1 
Enddo 

Store  Space(16)  to  stockn 

Release  all 

Clear 

Return 

* - *  Eof  OST.prg  * - - - * 


d.  RPEIS 

************^*ifc****A*A*******Jlt**********  A***************************** 

‘k^-k'k'k'k'k’k-k-k'k-k-k'k’k’k'k'k'k  RPEIS  •  PRG  ‘k'k'k'kif^'kifk'k'k'k'k'kik'k'k'kk'kit^it'kifk'k-kifk^ 


Module  name, 

Author . 

Date . 

Purpose . 


*  Called  by . 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local.. 


RPEIS. I 
Park,  laei 
Sept  24. 

Generate  Combat  essential  item 
Stockout  history  report  to  higher  command. 
Reports. prg 


S,  Sts,  Mprint,  Mqty,  Mcost, 


* 

it 

it 

it 

it 

it 

it 

it 

it 

* 

it 


^ifkitir^'kitit^itikititititititititititifkit^it'kitititit'kifkititititititititititititititititititititit^ititit^ititititititititit 

Select  B 
Use  PROPERTY 

Copy  to  TEHPPROP  for  ESSENCE 
Use  TEMPPROP 

Index  on  Class+SN  to  CSproper 

Use  TEHPPROP  index  CSPROPER 

Select  A 

Use  STOCKOUT 

Index  on  SN  to  SNSTOK 

Use  STOCKOUT  index  SNSTOK 

Select  B 

Store  1  to  linectr,paqectr,N, liner 

Store  0  to  sts30,sts60,sts90,stsl20,stco30,stco60,stco90,stcol20 
Store  0  to  S30,s60,s90,sl20,sco30,sco60,sco90,scol20,msqty,mscost 
Go  top 

Store  CLASS  to  CLASSN 
Store  "  "  to  Mprint 
Do  printer 
Clear 

Do  while  .NOT.  Eof() 

Store  SN  to  STOCKN 
Store  NM  to  MNM 


Select  A 
Seek  STOCKN 
If  found(). 

Do  while  .NOT.  Eof()  .AND.  sn=stockn 
Store  QTY  to  MQTY 
Store  QTY*UNITCOST  to  MCOST 
If  Dtoc(REFILLDATE)="  " 

Skip 

Loop 

Endif 

Store  REFILLDATE  to  FILLDATE 
Store  OUTDATE  to  SOUTDATE 
Bal  =  FILLDATE-SOUTDATE 
Do  case 

Case  bal  <=  30 

S30  =  S30+mgty 
Sco30  =  Sco30+mcost 

Case  Bal  <=  60  .AND.  Bal>30 
S60  =  S60+mgty 
Sco60  =  ScooO+mcost 

Case  Bal  <=  90  .AND.  Bal>60 
S90  =  S90+mgty 
Sco90  =  Sco90+mcost 

Case  Bal  >  90 

S120  =  S120+mgty 
Scol20  =  Scol20+mcost 

Endcase 

Skip 

Enddo 

Store  S30+S60+S90+S120  to  SQTY 

Store  SC030+SC060+SC090+SCOI20  TO  SCOST 

If  liner=l 


?  '  ' 

?  I 

??  'Stockout  Report 
?  ' 

??  ' 

7  '  > 

?  '  To  :  The  3333  Logistics  Supprot  Command' 
From  !  The  150  Infanry  Division' 


Combat  Rssential  Item  ' 

Pa^e  '  +  str(pagectr ,2) 

Date  :  ' +Dtoc(date() ) 


7 
7 
7  I 
7  I 

??  Dtoc(enddate)+' ) ' 


From  To 

( '+Dtoc(begdate)+' ) 


7 

?  '  No  Stock  number  ' 

??  '  Total  30days  SOdays  90days 

??  '120days' 

?  '  ' 

??  'Total  Cost  Item  Cost  Item  Cost  Item  Cost 
??  'Item  Cost' 

?  '  ' 
store  pagectr  +  1  to  pagectr 
Endif 

Store  linectr  to  Z 

?  Str(Z,3)+'  '+stockn+substr(str(sqty) ,5,6) 

??  substr(str(scost) ,5,6) 

??  substr(str(S30) ,5 ,6)+substr(Str(sco30) ,5,6) 

??  substr(str(s60) ,5,6)+substr(str{sco60) ,5,6) 

??  Substr(str{s90),5,6)+substr(str{sco90) ,5,6) 

??  substr(str(sl20) ,5,6)+substr{Str(scol20) ,5,6) 

Store  msqty+sqty  to  msqty 
Store  mscost+scost  to  mscost 
Store  Sts30+s30  to  Sts30 
Store  Stco30+sco30  to  Stco30 
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store  Sts60+s60  to  StsSO 
Store  Stco60+sco60  to  Stco60 
Store  Sts90+s90  to  Sts90 
Store  Stco90+sco90  to  Stco90 
Store  Stsl20+sl20  to  Stsl20 
Store  Stcol20+scol20  to  Stcol20 
Linectr=linectr+1 
liner=  liner+1 
If  liner=40*N 


?  'Material  Management  NCO  :  _ 

??  'Date  s  _ / _ / _ ' 

?  'Material  Management  Officer  : _ 

??  'Date  j  _ 7 _ / _ ' 

Eject 
N  =  N  +  1 
Endif 
Endif 

If  linectr=l 
Select  B 
Skip 

Store  Class  to  classn 
Loop 
Endif 
Select  B 
skip 

If  classoclassn  .OR.  Eof(> 

?  'Class  '+classn+'  - ' 

7?  I _ _ _ _ I 

?  '  Subtotal  ' 

??  substr(str(msqty)  ,5,6)<-substr(str(mscost),5,6) 

??  substr(str(Sts30) ,5,6)+  substr(Str(stco36) ,5,6) 

??  substr(str(sts60) ,5,6)+substr(str(stco60) ,5,6) 

??  Substr(str{sts90),5,6)+substr(str(stco90) ,5,6) 

??  ^  substr(str(stspO) ,  5,6)+substr(Str(stcol20)  ,5,6) 

?  ’  ' 


Store  0  to  sts30,sts60,sts90,stsl20,stco30,stco60,stco90,stcol20 
Store  0  to  S30,s60,s90,sl20,sco30,sco60,sco90,scol20,mscost,msqty 
Store  1  to  linectr 
Liner=liner+4 
Endif 

Store  class  to  classn 
Enddo 

If  liner  >  1 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  _ ' 

??  '  Date  :  _ / _ / _  T 

■>  I  r 


?  'Material  Management  Officer  ; 
??  '  Date  !  /  /  ' 


Date 

Endif 
If  mprint  ="Y" 
fcject 

Set  print  off 
Set  console  on 
Endif 
Close  all 
Erase  SNstok.ndx 
Erase  tempprop.dbf 
Erase  csproper.ndx 
@9,15  clear  to  15,64 
@  9,15  to  15,64 

@  11,25  Say  "Finished  report  for  Stockout 
@  13,25  Say  "Period  "+Dtoc(begdate)+"  -  " 
N=0 


tl 

+Dtoc(enddate) 


I 
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N=N+1 

Enddo 

Release  all 

Clear 

Return 


•*  Eof  Eis.prg  *■ 


e.  RPSOR 


i^-k'k'k-kick'k-k-k'k-k-k-k^-k^-k-k-k  RPSOR .  PRO  *A***A*)*t**yf**?^**jfcr****yr***Ayc***>r*jt 

'k-k-k-y-k-k'k’k'k-k-k-k'k^ifk-k'kit'k^'k'k-k-k-k-k-kn-kif'k'k'kit'k-kifk'kA'kic^^'kif'k-k^itic'kiK'kiKififiK-kiK'ki^A-kici^iKicifk 


*  Module  name. 

*  Author . 

*  Date . 

*  Purpose . 

*  Called  by. . . 


^^k^^-k-k’kififiKniKiKifkiK^’k-k-k 


RPSOR. prg 
Park,  Taeyong 
Sept  24.  1987 

Generate  Stockout  history  report 
to  higher  command. 

Reports .prg 

■kifn'kniK'k'kn-kn 


Select  B 

Use  PROPERTY  index  snproper 
clear 

Do  while  .T. 

Store  "  "  to  Classn,  Mprint 

Store  "  STOCKOUT  REPORT"  to  mtitle 

Do  select 

Store  " (OutDate>=Begdate  .AND.  outDate<=Enddate)"  to  period 
Do  case 

Case  upper(Chr(i) )="1" 

Sel="l" 

Select  B 

Index  on  Class+Sn  to  CSPROPER 
Select  A 
Use  stockout 

Cop^  to  TEMPOUT  for  Speriod 

CAse  upper(chr(i))="2" 

5el="2" 

@  14,30  Say  "Enter  Class  number(l-lO)  "  get  Classn 
@  15,30  Say  "  (0  for  10)" 

Read 

If  classn  =  "0" 

Store  "10"  to  Classn 
Endif 
Select  A 

Use  stockout  INDEX  stockout 
Set  relation  to  sn  into  B 

Store  "&period  .AND.  b->class='&classn' "  to  conditl 
Cop^  to  TEMPOUT  for  &conditl 

Case  u|per<jchr(i) )="3" 

@  16,30  Say  "Enter  stock  number"  get  stockn; 

Diet  '9999-99-999-9999' 

Read 
Select  A 

Use  stockout  INDEX  stockout 
Set  relation  to  sn  into  B 

Store  "&period  .AND.  sn= ' Ststockn' "  to  conditl 
Cop^  to  TEMPOUT  for  Stconditl 

Case  upper(chr(i) )="0" 
close  dataoases 
Return 
Otherwise 

?  chr(7) 


Endcase 
Enddo 
Select  A 
Use  TEMPOUT 
Index  on  SN  to  SNTEMP 
Use  TEMPOUT  index  SNTEMP 
If  EofO 

@  10,18  Clear  to  15,58 
@  10,18  to  15,58 
@  11,20  SAY  "  Never  Stockout" 

d  13,20  Say  "  Press  any  key  to  return...." 

Wait  "" 

Close  databases 
Erase  TEMPOUT. DBF 
Erase  SNTEMP. NDX 
Return 
Endif 

Do  printer 
Clear 

Store  1  to  linectr.paqectr,  11, liner 

Store  0  to  sts30,sts6o,sts90,stsl20,stco30,stco60,stco90,stcol20 
Store  0  to  S30 , s60 , s90 , sl20 , sco30 , sco60 , sco90 , SC0I2O ,msqty ,mscost 
Go  top 

Do  while  .NOT.  Eof() 

Store  sn  to  stockn 

Select  B 

Store  nm  to  mnm 

Store  class  to  classn 

Select  A 

Seek  stockn 

If  found () 

Do  while  .NOT.  Eof{)  .AND.  SN=STOCKN 
Store  qty  to  mqty 
Store  qty*unitcost  to  mcost 
If  Dtoc(refilldate)="  " 

Skip 

Loop 

Endif 

Store  refilldate  to  filldate 
Store  outdate  to  soutdate 
Bal  =  (filldate)-(soutdate) 

Do  case 

Case  bal  <=  30 

S30  =  S30+mqty 
Sco30  =  Sco30+mcost 

Case  Bal  <=  60  .AND.  Bal>30 
S60  =  S60+mqty 
Sco60  =  ScooO+mcost 

Case  Bal  <=  90  .AND.  Bal>60 
S90  =  S90+mqty 
Sco90  =  Sco90+mcost 

Case  Bal  >  90 

S120  =  S120+mqty 
SC0I2O  =  ScolzO+mcost 

Endcase 

Skip 

Enddo 

Store  S30+S60+S90+S120  to  SQTY 

Store  SC030+SC060+SC090+SC0120  TO  SCOST 

If  liner=l 


?  I 
?  I 
?  I 
?  I 

??  ' 
?  ’  I 

??  ' 
7  I 


Stockout  Report' 
Page  '  +  str(pagectr,2) 

Date  :  '■♦•Dtoc(date()) 
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To  :  The  3333  Logistics  Supprot  Command 
From  ;  The  150  Infanry  Division' 


■> 

7 
7 

7  I  I 

?  '  No  Stock  number  ' 

??  '  Total  30days  60days  90days  ' 

??  'IZOdays' 

?  '  ' 

??  'Total  Cost  Item  Cost  Item  Cost  Item  Cost  ' 
??  'Item  Cost' 
store  pagectr  +  1  to  pagectr 
Endif 


Store  linectr  to  Z 

?  Str(Z,3)-*-'  '+stockn+substr(str(sqty)  ,5,6) 

??  substr(str(scost) ,5,6) 

??  substr (str(S30) , 5 ,6)+substr(Str(sco30 ) , 5 ,6) 

??  substr ! str(s60) , 5 ,6)+substr( str (sco60) ,5,6) 

??  Subs tr ( str (s90) , 5 ,6)+substr(str (sco90) ,5,6) 

??  substr (str (sl20) , 5,6)+substr (Str(scol20) ,5,6) 

Store  msqty+sqty  to  msqty 

Store  mscost+scost  to  mscost 

Store  Sts30+s30  to  Sts30 

Store  Stco30+sco30  to  Stco30 

Store  Sts60+s60  to  Sts60 

Store  Stco60+sco60  to  Stco60 

Store  Sts90+s90  to  Sts90 

Store  Stco90+sco90  to  Stco90 

Store  Stsl20+sl20  to  Stsl20 

Store  Stcol20+scol20  to  StcolZO 

Linectr=linectr+1 

liner*  liner+1 

If  liner=40*N 

•?  I  I 


I 


7 

?  'Material  Management  NCO 
'Date  :  _ 7 _ /. 


ige 

_ _ 7 _ /  ' 

?  'Material  Management  Officer 

??  'Date  :  7  / _ ' 

Eject 
N  =  N  +  1 
Endif 
Endif 
If  sel="l" 

If  linectr*! 

Select  B 
Skip 

Store  Class  to  classn 
Loop 
Endif 
Select  B 
skip 
Endif 

If  b->class<>classn  .OR.  Eof() 

?  'Class  '+classn+' 


7?  I . 

?  '  Subtotal  ' 

??  substr(str(msqty) ,5,6)+substr(str 
??  substr{str(Sts30) ,5,6)+  substr(Str(stco3 
??  substr(str(sts60 ) ,5 ,6)+substr(str(stco60 
??  Substr(str(sts90) ,5,6)+substr(str(stco90, 

??  substr(str(stsl26) ,5,6)+substr(Str(stcol20) ,5,6) 


r 


I 


store  0  to  sts30,sts60,sts90,stsl20,stco30,stco60,stco90,stcol20 
Store  0  to  S30,s60,s90,sl20,sco30,sco60,sco90,scol20, mscost, msqty 
store  1  to  linectr 
Liner=liner+3 
Endif 
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ft' 


I  "‘‘.H 

'i4 


I 


SI 


Enddo 

If  liner  >  1 

•>  I 


?  'Matrial  Management  NCO 
??  '  Date  :  _ _/ _ _ 


?  'Material  Management  Officer  : 

??  '  Date  :  /  /  • - - - 

Endif  -  -  - 

Close  all 
If  mprint  =  "Y" 

Eject 

Set  console  on 
Set  print  off 
Endif 
If  sel="l" 

Erase  csproper.ndx 
Endif 

Erase  tempout.dbf 
Erase  SMtemp.ndx 
Set  color  to  N/W 
Wait 

Set  color  to 

@9,15  clear  to  15,64 

d  9,15  to  15,64  double 

@  11,25  Say  "Finished  report  for  Stockout  " 

@_13,25  Say  "Period  "+Dtoc(begdate)+"  -  "+Dtoc(enddate) 

Do  while  n<35 
N=N+1 
Enddo 
Clear 

Store  space(16)  to  stockn 
Return 

* . *  Eof  SOR.prg  * . . 


4.  ANALYSIS 


a.  ANALYSIS  STARTUP 


■k'k'k’k-k-k-k'k'k'k-k-k'k-k-k^'kifk  ANALYSIS  *  PRO  ★^★★★★★^★★★:*^***j<f^***^****** 


Module  name. 

Author . 

Date . 

Purpose . 


Called  by . 

Modules  called 
Variales  used. . 

Public . 
Local. . 


ANALYSIS.prg 
Park,  Taeyong 
Sept  25.  1987 
Analy 

EOQ  by  using 
(Fixed  Order 
PHAIN.prg 
ANEOQ.prg,  ANLEADT.prg 


ze  the  reorder  point,  safety  level 
robabilistic  model 
ize  System) 


TODAY . STD . STOCKM 

BEGDATE , ENDDATE , CTITLE , MLEADT , MQTY , ORDERC , 
SERVE , FRATE , RSTD , LSTD , N , M , CSC , CSL . 


* 

A 

★ 

★ 

★ 

* 

★ 

★ 

★ 

★ 

★ 

★ 


I  *  4\n  Ate  ,4\<^AW  .teteAte  teWte.teteW* 


DO  VmiLE  .T. 

Store  space (8)  to  BEGDATE , ENDDATE 
Store  space(50)  to  CTITLE 
Store  "N"  to  CSL, CSC 
Store  space (16)  to  STOCKN,MREQNO 

Store  0  to  MLEADT, MQTY, RDEM, ORDERC, SCOST, SERVE, FRATE, RSTD, LSTD 

Store  0  to  DATEBAL,LEADDEM,T0TDATE,MLEADT1 

Store  1  TO  N,M 

CLEAR 

Text 


THIS  SYSTEM  USES  THE  FIXED  ORDER  SIZE  SYSTEM  WITH  PROBABILISTIC 
MODEL.  THE  FIXED  ORDER  SIZE  SYSTEM  IS  COMPLETELY  DEFINED  BY  THE 
ORDER  QUANTITY  Q|  AND  REORDER  POINT  B|.  THE  RISK  OF  STOCKOUT 
OCCURS  AFTER  REORDER  POINT.  TO  GET  Ql ,B| ,  YOU  HAVE  TO  DECIDE 
SERVICE  LEVEL,  OR  STOCKOUT  COST  PER  UNIT.  THIS  SYSTEM  ASSUMED 
BACKORDER  CASE  WITH  SERVICE  LEVEL  INSTEAD  OF  LOSTSALES  CASE. 

Endtext 

@  19,17  SAY  "Enter  stock  number  :  " 

@  21,12  SAY  "Enter  time  period  you  want  to; 
test(  -  )" 

SET  COLOR  TO  N/W 
@  21,48  SAY  "01/01/87" 

@  21,59  SAY  "12/31/87" 

SET  COLOR  TO 

0  22,50  SAY  "Begin  End  date" 

I  24,20  SAY  "Leave  BLANK  any  space  to  Exit  " 

@  1,10  TO  3,60  DOUBLE 
@  4,1  TO  23,77  DOUBLE 

@  2,15  SAY  "A  N  A  L  Y  S  I  S  of  TRANSACTION" 

(3  3,62  SAY  "Today  ;  "  +DTOC(DATE() ) 

@  19,38  GET  STOCW<  PICT  "9999-99-999-9999" 

READ 

IF  ST0CKN='  ' 

EXIT 

EIIDIF 

@  21,48  GET  BEGDATE  PICT  "99/99/99" 

@  21,59  GET  ENDDATE  PICT  "99/99/99" 

Read 

If  Begdate*"  "  .OR.  Enddate*"  "  .OR.  Stockn="  " 

Exit 

Endif 
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store  Ctod(Begdate)  to  Begdate 
Store  Ctod(Enadate;  to  Enddate 

If  BEGDATE>=ENDDATE 
Clear 

@15,  25  SAY  "The  End  date  MUST  be  later  than  the  begin  date" 

@17,  30  SAY  "Press  ENTER  to  redo . " 

Wait  "  " 

Loop 

Endif 

Do  ANLEADT 
If  Rdem<=0 
Clear 
Loop 
Endif 

Do  ANEOQ 
ENDDO 

CLOSE  DATABASES 
RELEASE  ALL 
ST0CKN=SPACE(16) 

RETURN 

* - *  Eof:  Analysis. prg  - 


b.  ANLEADT 


*********************  LEADT.PRG  ********************************** 

***************************************************************** ***y^*** 


Leadt.Prg 
Park,  Taeyong 
Sect  30.  1987 

Calculate  Lead  time  to  Supply  for  given  Item 

Analysis. Prg 

Proc.prg 

Mleadt,Mqty,M2ulu 


*  Module  name .... 

*  Author . 

*  Date . 

*  Purpose . 

*  Called  by . 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local.. 


■k 

•k 

k 

k 

k 

k 

k 

k 

k 


Set  procedure  to  ANPROC 
SET  CONSOLE  OFF 
Clear 

@  10,15  to  14,65 

@  11,25  Say  "  Please  do  NOT  touch" 

@  13,25  Say  "  Working .  " 

Select  B 

Use  PROPERTY  index  snproper 
Select  A 

Use  master  index  sctmast 

Copy  to  RLMAST  for  type="RL"  .AND.  (Date>=Begdate  .AND.  Date<=Enddate) ; 
.AND.  sn=stockn 

Copy  to  ILMAST  for  type="IL"  .AND.  (Date>=Begdate  .AND.  Date<=Enddate) ; 
.AND.  sn=stockn 

Copy  structure  to  DEM  fields  qty, type , date 
Select  E 
Use  DEM 
Select  C 


Use  ILMAST 

Index  on  REQNO  to  SRIL 
Use  ILMAST  index  SRIL 
Select  D 
Use  RLMAST 

Index  on  REQNO  to  SRRL 
Use  RLMAST  Index  SRRL 
Select  C 
If  Eof() 

?  chr(7) 
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@15,  25  SAY  "You  receive  nothing  from  LSC  between" 

@  16,  30  SAY  Dtoc(Begdate)+"  -  "  +Dtoc(Enddate) 

@  18,  25  SAY  "Press  ENTER  to  return - " 

Wait  "  " 

Close  databases 
Erase  RLMAST.DBF 
Erase  SRRL.NDX 
Erase  ILMAST.DBF 
Erase  SRIL.NDX 
Erase  DEM. DBF 
Release  all 
Set  console  on 
Return 
Endif 

*  . To  calculate  the  lead  time  of  an  item 

Go  top 

Do  while  .NOT.  Eof() 

Store  regno  to  HREQNO 
Store  date  to  ILDATE 
Select  D 
Seek  Mreqno 
If  EofO  .OR.  BofO 
Select  C 
Skip 
Loop 
Else 

Store  Date  to  RLDATE 
Do  while  reqno=mreqno  .AND.  .NOT.  Eof() 

N=N+1 

Datebal=(c->Date)  -  (Date) 

Totdate=Totdate+Datebal 
If  rldate>date 

Store  Date  to  Rldate 
Endif 
Skip 
Enddo 
Endif 
Select  A 

Sum  qty  for  sn=stockn  .AND.  type="RD"  .AND.; 

(date>=RLDATE  .AND.  date<=ILDATE)  to  leaddem 
Select  E 
Append  blank 

Replace  qty  with  leaddem 
Replace  type  with  "LD" 

Replace  date  with  Rldate 
Store  0  to  leaddem 
Select  C 
Skip 
Enddo 

Store  Totdate/N  to  Mleadtl 
store  Hleadtl/30  to  mleadt 
Store  0  to  N 

*  . To  get  Annual  average  demand  (1  year  moving  average) 

Select  A 

Store  "date>=begdate  .AND.  date<*enddate"  to  Condx 

Sum  qty  for  sn=Stockn.AND.type="RD".AND.  &condx  to  Rdem 

Store  enddate-begdate  to  toed 

Store  Rdem*365/totd  to  Rdem 

Store  Round(totd/30 ,0)  to  Nmax 

*  . To  get  standard  deviation  of  annual  demand  from  monthly  demand 

Go  top 

Store  begdate  to  mdate 

Store  "(sn=stockn.and.type='RD' )"  to  condl 

Store  " (date>=mdate+30*N  .AND.  aate<=mdate+30*(N+l) )"  to  cond2 
Do  while  N  <  Nmax 

Sum  qty  for  &condl  .AND.  &cond2  to  mqty 
Select  E 
Append  blank 
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Replace  qty  with  mqty 
Replace  date  with  (mdate+30*n) 

Replace  type  with  ''DM" 

M=  N+1 
Select  A 
Store  0  to  mqty 
Enddo 

S  9  X  d  c  ttf  £ 

Do  Std  with  "qty" , "Type= ‘ DM' " 

Close  databases 
Erase  RLMAST.DBF 
Erase  SRRL.UDX 
Erase  ILMAST.DBF 
Erase  SRIL.tJDX 
Erase  DEM. DBF 
SET  CONSOLE  ON 
SET  PROCEDURE  TO 
RETURN 

* . *  Eof  ANLEADT.prg  *■ 


c.  ANEOQ 


?t***3^*K*^*****  ANEOO«PRG  A********J>C***********:^****** 


*  Module  name, 

*  Author . 

*  Date . 

*  Purpose . 


*  Called  by . 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local.. 


AI'IEOQ.prg 
Park,  xaeyong 
OCT  1.  1987 

To  calculate  Economic  Order  Quantity, Reoder 
Point,  Safety  level,  and  Requisition  Object 
ANALYSIS. prg 
None 

STD, TODAY, 

CS  C , CSL . RDEM . MEOFZ . MTZ . MSERVL . ORDERC , FRATE 


********************************************************************** 

Set  decimals  to  5 
S 6  Is c  t  C 

Use  ASL  index  INASL 

Select  B 
Use  NORMAL 
Select  A 

Use  PROPERTY  index  snproper 
Set  relation  to  SN  into  C 
Do  while  .T. 

Seek  stockn 

Store  "PRESENT"  to  title 
Clear 

Store  "Is  this  record  right?(Y/N) to  ctitle 
Store  Ltrim(str(ASL->ROPT)  to  Mrop 
Store  Ltrim( str (ASL->SL) )  to  Msl 
Store  Ltrim(str(ASL->RO) )  to  Mro 
Store  Ltrim(str(ASL->OST) )  to  Most 
Do  while  ,T. 

Set  format  to  EOQ 
Read 

If  check  =  "Y" 

Set  format  to 
Exit 
Enaif 
Enddo 

* . Holding  cost 

If  Frate=0 

Store  15.0  to  Frate 
Endif 


r*' 


store  {Frate/100)*Property->unitcost  to  Holdc 

* . ordering  cost 

If  Orderc  =  0 

Store  20.0  to  Orderc 
Endif 
Do  case 

Case  (CSL="y"  .AMD.  CSC=‘'Y")  .OR.  (CSL="N"  .AI^ID.  CSC="N") 


?  Chr{7) 

@  10,  15  clear  to  16,65 
@  10,15  to  14,65 

@  12,20  SAY  "You  have  to  select  ONE  of  Choices" 

@  15,20  Say  "Press  ENTER  to  redo . " 

Store  0  to  Prate .Orderc, Scost, Servl 
Store  "N"  to  CSC,CSM 
Store  "X"  to  check 
Wait  "  " 

Loop 

-  . Holding  cost  rate 

Case  CSL="N"  .AND.  CSC="Y" 

00  =  Sq^rt  ( 2*Rdem*Orderc/Holdc ) 
Msigfofb=Holdc*Q0/  (scost’^Rdem) 

Select  B 

Locate  for  sigfofb  <=msigfofb 
Store  Tz  to  Mtz 
Store  Eofz  to  meofz 


Case  CSL="Y"  .AND.  CSC="N" 

If  Servl=0 

Store  85.000  to  servl 
Endif 

Store  servl/100  to  mServl 
QO  =  Sqrt(2*Rdem*Orderc/Holdc) 

Scost=Holdc*Q0/ {mServl*Rdem) 

Store  1-ServI  to  mpofs 
Select  B 

Locate  For  pofs<=mpofs 
Store  Tz  to  Mtz 
Store  Eofz  to  meofz 

Endcase 

Store  0  to  E0Q,M0ST,MR0P,MSL,MR0 

Store  Sgrt(2*Rdem*(0rderc+Scost*Meofz) )/Holdc  to  EOO 

Store  Mleadtl  to  Most  * 

Store  Rdem*Mleadt/12  +  Mtz*Std*Sqrt (Mleadt)  to  Mroo 
Store  Mrop  -  (Rdem*Mleadt/12)  to  Msl 
Store  EOQ+Mrop  to  Mro 
Store  "Calculated"  to  title 

Store  "Do  you  want  to  change  the  old  records  with  this?:"  to  ctitle 
Select  C 


Store  Ltrim{str(MROP) )  to  Mrop 


Store  Ltrim( str(MSLj 
Store  Ltrim(str(MRO; 


to  Msl 
to  Mro 


Store  Ltrim(str(M0ST) )  to  Most 

Seek  stockn 

Set  format  to  EOQ 

Read 

If  check  ="Y" 

Set  format  to 

Replace  RO  with  Val(Mro) 

Replace  Rop  with  Val(Mrop) 

Replace  SL  with  Val(Msl) 

Replace  OST  with  Val(Host) 

Replace  date  with  today 
Exit 
Else 

Set  format  to 

Store  0  to  Frate .Orderc. Scost, Servl 
Store  "N"  to  CSC,CSN 
Store  "X"  to  check 


Enddo 

Close  databases 
Set  decimals  to 
Return 

* . *  Eof  EOQ.prg  * . * 


d  ANPROC 


A  A  A  ^  ^ ^  ^  ^ A ^ A  ^  ^  ^  A A ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  Vk  A ^  A  ^  ^  A  ^  ^  ^  A- 7^  7^  ^  A- ^  ^ 

AAAAAAAAAAAAAAAAAAA  PROC . PRG  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA* 

AAAxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


*  Module  name . . 

*  Author . 

*  Date . 

*  Purpose . 

*  Variales  used 

*  Public 
Local 


Proc .prg 
Park,  Taeyong 
Sept  30.  1987 

Procedures  for  calaulating  statics 

FieldName 
Hax.Min.Std.Var 


* 

* 

* 

A 

A 

A 


PROCEDURE  Max 

PARAMETERS  fieldname , Condition 
SET  FILTER  TO  &Condition 
GO  TOP 

Max  =  -99999 
DO  While  .MOT.  E0F() 

IF  &FieldMame  >  Max 

Max  =  &FieldName 
Endif 
Skip 

ENDDO 

SET  FILTER  TO 
RETURN 

PROCEDURE  Min 

PARAMETERS  FieldName .Condition 
SET  FILTER  TO  &Condition 
GO  TOP 
Min  =  99999 
DO  While  .NOT.  E0F() 

IF  &FieldName  <  Min 
Min  =  SFieldName 
Endif 
Skip 

ENDDO 

SET  FILTER  TO 
RETURN 

PROCEDURE  Var 

PARAMETERS  FieldName , Condition 
SET  FILTER  TO  SCondition 
GO  TOP 
COUNT  TO  N 

SUH(&FieldName)  TO  TOT 
SUM(&FieldName  2)  TO  TOTsq 

Correction  =  TOT  2^ 

Var  =  (TOTsq  -  Correction)/(n-l) 

SET  FILTER  TO 
RETURN 

PROCEDURE  Std 

PARAMETERS  FieldName , Condition 
SET  FILTER  TO  &Condition 
GO  TOP 
COUNT  TO  N 

SUM(&FieldName)  TO  TOT 
SUM(&FieldName  2)  TO  TOTsq 

Correction  =  TOT  2/N 

Variance  =  (TOTsq  -  Correction)/(n-l) 


rs 

J*5v 

m 

f 


Std  =  SQRT(Variance) 

SET  FILTER  TO 
RETURN 

PROCEDURE  Mzulu 
PARA:-!ETER  xdate 

STORE  "01/01/"+substr("&XDATE",7,2)  to  21da\ 
STORE  (CTODC'SeXDATE")  -  CTOD(Zlday )+l )  TO  Z* 


RETURN 

7^  .  «i  •  •  -  • 


STORE  (CTODC'SeXDATE")  -  CTOD(Zlday )+l )  TO  ZZDAY 
STORE  SUBSTR("5(XDATE^',8)+SUBSTR{stR(1000000+Z2day)  ,8, 


3)  to  MZULU 


•*  EOF  ANPROC. Procedure*- 


m 


5.  MANAGEFL 


a.  MANAGEFL  MENU 

*********************************************************************** 

******************  MANAGEFL-PRG  ******************************* 

****************************************************************’'****** 

*  Program.;  Managefl.PRG  * 

*  Author..:  PARK,  TAEYOMG  * 

*  Date _ :  AUG  21 ,  1987  * 

*  Notice..:  Copyright  1987  * 

*  Motes...:  Menu  file  for  file  management  system,  called  by  pmain.prg  * 

*********************************************************************** 


Do  while  .T. 
check  =  "X" 


CLEAR 

(a  1,15  TO  3,55  double 
@  4,1  TO  23,77 
0  6,3  TO  21,37 
(3  5,4  TO  7,20 
@  6,5  SAY  SPACE(15) 

@  6,41  TO  12,75 
@  5,42  TO  7,59 
@6,43  SAY  SPACE (16) 

@  14,41  TO  21,75 
@  13,42  TO  15,59 
@  14,43  SAY  SPACE (16) 

@2,17  SAY  "Management  of  files" 
@6,6  SAY  "  Edit  files" 

@6,44  SAY  "  Addition" 

@  14,44  SAY  "Information" 

@8,47  SAY  "l.To  add  Customer  (Cl)" 

@  9,47  SAY  "2. To  add  Property  (SN)" 

@  10,47  SAY  "3. To  add  ASL  (SN)'* 

@9,7  SAY  "4. To  change  Customer  (Cl)" 

@  11,7  SAY  "5. To  change  Property  (SN)" 

@  13,7  SAY  "6. To  change  ASL  (SN)" 

@  15,7  SAY  "7. To  change  Master  (SN+REQNO)" 

@  17,7  SAY  "8. To  change  Batch  (SN+REQNO)'' 

@20,7  SAY  "9. Query  on  files" 

@  16,47  SAY  "Today  is  . " 

@  16,60  SAY  today 

@  18,43  SAY  "Stock  number  :  " 

@  19,55  SAY  "(Or/And)" 

@  20,43  Say  "Customer  code  :  " 

SET  COLOR  TO  N/W 

@  18,59  SAY  Stockn  pict  "9999-99-999-9999" 

@  20,59  SAY  mci  pict  "9999" 

SET  COLOR  TO 
STORE  ""  TO  SEL 


@  22,  8  SAY  "Enter  Selection  (1-9,  or  0  to  go  to  mainmenu)  :  :|" 

+ . The  following  lines  are  for  select  loop 

i=0 

DO  WHILE  i=0 
i=INKEY() 

@  22,58  SAY  "" 

IF  UPPER(CHR(i))$"0123456789" 

@  22,58  SAY  CHR(I) 

EXIT 
END  IF 
i=0 
ENDDO 

Do  case 

Case  CHR(I)  =  '1' 

@  18,59  SAY  "XXXX-XX-XXX-XXXX" 

@  20,59  get  mci  pict  "9999" 

READ 


DO  ADDCUST 
Case  CHR(I)  =  '2' 

0  18,59  get  stockn  pict  "9999-99-999-9999" 

@  20,59  SAY  "XXXK" 

READ 

DO  ADDPROP 
Case  CHR(I)  =  '3' 

@  13,59  get  stockn  pict  "9999-99-999-9999" 

@  20,59  Say  "XXXX" 

READ 

DO  ADDASL 
Case  CHR(I)  =  '4‘ 

@  18,59  SAY  "XXXXX-XX-XXX-XXXX" 

20,59  get  mci  pict  "9999" 

READ 

DO  EDITCUST 
Case  CHR(I)  =  '5' 

(a  18,59  get  stockn  pict  "9999-99-999-9999" 

@  20,59  Say  "XXXX" 

READ 

DO  EDITPROP 
Case  CHR(I)  =  '6' 

(a  18,59  get  stockn  pict  "9999-99-999-9999" 

@  20,59  Say  "XXXX" 

READ 

DO  EDITASL 
Case  CHR(I)  =  '7' 

@  18,42  clear  to  20,  65 

@  18,43  SAY  "Stock  number  ;  "  get  stockn  pict; 
"9999-99-999-9999" 

0  19,43  Say  "Customer  code  :  "  get  mci  pict  "9999" 

@  20,43  Say  "Transaction  type  t  "  get  mtype  pict  "!!" 

ptriin 

DO  EDITMAST 
Case  CHR(I)  =  '8' 

(a  18,42  clear  to  20,  65 

d  18,43  SAY  "Stock  number  :  "  get  stockn  pict; 
"9999-99-999-9999" 

d  19,43  Say  "Customer  code  :  "  get  mci  pict  "9999" 
d  20,43  Say  "Transaction  type  :  "  get  mtype  pict  "!!" 
READ 

DO  EDITBAT 
Case  CHR(I)  =  ‘9' 

Do  Manageq 
CHECK  =  "I" 

CASE  1=27  .OR.  CHR(I)  =  'O' 

?  Chr(7) 

RETURN 

OTHERWISE 

?  CHR(7) 

ENDCASE 

ENDDO 

CLOSE  DATABASES 
RETURN 

* - ggf.  Managefl.prg  * - 


b.  ADDASL 

A AAAAA AAAAAAAAAAA AAAA  ADDASL. PRG  A AAA A A AAA A AAA AAA A AAAAAAA AAA A 

AAA AAA A AAAAA AAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


*  Module  name . ADDASL. prg 

*  Author .  Park.Taeyong 

*  Date . .  Aug  25.  1987 

*  Purpose . Add  Authorized  Storage  List  item(ASL)  into 

*  ASL  file  by  manual 

*  Called  by . :  MANAGEFL.prg 


*  Modules  called 

*  Variales  used.. 

*  Public. 


CHECK. 


AAA  AAA  A  A 

If  stockn  =  "  " 

Return 
Endif 
Select  A 

Use  ASL  INDEX  INasl 
Select  B 

Use  property  INDEX  Snproper 

* - Set  up  loop  for  adding  new  ASL. 

Store  "X"  to  dcneck,  fcheck 
Dloop  =  .T. 

Do  while  Dloop 
Clear 

* - check  to  see  if  stock  number  already  exists. 

Seek  StockN 
Do  case 

Case  foundO 

@  15,10  say  SN  +  "  is  Already  exist  in  ASL  file  !" 
@  17 ,  20  say  "  Do  you  want  to  change  ?  "  get  check 
Read 

Check  =upper  (check) 

If  check  =  "Y" 

Clear 

Set  format  to  Editasl 
Read 

Set  format  to 
Endif 

Case  .not.  foundO 
Clear 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  ASL 
Read 

If  Upper (dcheck)  =  "Y" 

Set  format  to 
Exit 
Endif 
Enddo 


Endcase 

Store  "X"  to  tcheck 
Clear 

@  17,20  say  "  Do  you  want  to  check  property  file?"  get  tcheck 
Read 

Tcheck  =  upper(tcheck) 

If  Tcheck  =  "Y'' 

Select  B 
Clear 

Seek  StockN 
Do  case 

Case  foundO 

Store  "X"  to  tcheck 

@  15,15  say  StockN  "  is  already  exist  in  property  file  " 

@  17,20  say  "  Do  you  want  to  change  ?  "  get  tcheck 

Read 

Tcheck  =  upper (tcheck) 

If  tcheck  =  "Y" 

Clear 

Set  format  to  Editprop 
Edit  recnoO 
Set  format  to 
Endif 

Dloop  =  .F. 

Case  .NOT.  foundO 
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Clear 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  prop 
Read 

fcheck  =  upper ( fcheck) 

If  fcheck  =  "Y" 

Replace  tvalue  with  unitcost  *  onhand 
Set  format  to 
Dloop  =  .F. 

Exit 

Endif 

Enddo 

Endcase 

Endif 

Dloop  =  .F. 

Enddo 
Close  all 

Store  space(16)  to  stockn 

Release  all 

Return 

* - *  EOF  Addasl.prg  * - 


c.  ADDPROP 


***r:Ar^*:fc*y^**:^****^**  ADDPROP -PRG  •k-k'k-k^'k^-kiK^^-kit’k-k'k'k'kA-k-k'k-k^^k'k-k'k'k 

ic^-A'kifk'kir^'k-k’k'k-kiKicif^'k'k'kifi^'k-k^’k-kifk^i^'^ic'k-ki^i^'k-k'k'k'k'kiK'kit'k'k'k'k^ie'k'kifit'k'k-kifk'k'k'k^'kif’k^ 


*  Module  name .... 

*  Author . 

*  Date . 

*  Purpose . 

*  Called  by . 

*  Modules  called 

*  Variales  used. , 

*  Public. 


ADDPROP. prg 
Park,  Taeyong 
Aug  20.  1987 

Add  new  properties  into  property  file 

MANAGEFL.prg 

None 

TODAY 


A 
★ 
* 
•k 
k 
k 
k 
k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

If  StockN  =  "  " 

Return 
Endif 
Clear 
Select  A 

Use  ASL  INDEX  INasl 
Select  B 

Use  property  INDEX  Snproper 

Today  =  date() 
check  =  "X" 
stock  =  .T. 

Do  while  Stock 
clear 

Seek  StockN 
Store  "X"  to  fcheck 


Do 


case 

Case 


foundO 

clear 

Store  "X"  to  tcheck 

@  15,10  say  StockN  +  "  is  already  exist  in  property  file" 
@17,  20  Say  "Do  you  want  to  change  it  NOW  ?"  get  tcheck 
Read 

Tcheck  =  upper (tcheck) 

If  tcheck  =  "N" 
clear 

Stock  =  .F. 

Exit 


Endif 

Set  format  to  Editprop 
Edit  recno() 

Replace  tvalue  with  unitcost  *  onhand 

Set  format  to 

Exit 

Case  .NOT.  found() 

Append  blanx 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  prop 
Read 

fcheck  =  upper(fcheck) 

If  fcheck  =  "Y'‘ 

Replace  tvalue  with  unitcost  *  onhand 
Sec  format  to 
Stock  =  .F. 

Exit 

Endif 

Enddo 

Endcase 

clear 

Store  "X"  to  acheck 

@  15,  20  SAY  "Is  this  '*  +  stockN  +  "  ASL  item  ?"  get  acheck 

Acheck  =  upper  (acheck) 

If  acheck  =  "Y" 

Select  A 
Seek  StockN 
Store  "X"  to  dcheck 
Do  case 

Case  foundO 

@  20,10  say  SN  +  "  is  Already  exist  ; 

Do  you  want  to  change  ?  "  get  check 

check  supper  (check) 

If  check  =  "Y" 

Set  format  to  EDITASL 
Edit  RecnoO 
Set  format  to 
Exit 
Endif 

Case  .not.  found() 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  ASL 
Read 

Dcheck  =  upper (dcheck) 

If  dcheck  =  "Y" 

Set  format  to 
Exit 
Endif 
Enddo 

Endcase 
Endif 
Enddo 
Close  all 

Store  space (16)  to  stockn 

Release  all 

Return 

* - A  £q£  Addprop.prg  - - - - - * 


d.  ADDCUST 


it-k-k-k-k-k-k-k-k'k-k'kiK'k-kiK-k-k-k  ADDCUST  .PRG  ****************)fr************** 

A  ^  ^  i*r  A  ?<t  A  A:  ^  A  A  ^  A  ^  A  lA:  :Ar  ^  ilf  A  A  A  ^  A  ^  X  ^  ^  A  A  :A:  A  :A;  A A  A  A  A  :Ar  7^  A  >r  >r  ^  T>r  T^r  A  :A;  A  ^  ^  A  :A:  A  ^  7^  A  A  A:  A  3^  A 
*  Module  name....!  ADDCUST.nrn  * 


Author . 

Date . 

Purpose . . . 
Called  by, 
Modules  called 


ADDCUST. prg 
Park,  Tae 

it 


Au 


§8?^ 


25.  1' 

customer  into  customer  file 
MANAGEFL.prg 
None 


AAAAAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Use  Customer  index  Cicust 
Cust=  .T. 

store  "Y"  to  Dcheck 
Do  while  Cust 

* -  check  proposed  customer  code 

Seek  Hci 
Do  case 

Case  Hci  =  "  " 

Clear 
Cust  =  .F. 

Case  foundO 

@  10,15  clear  to  15,65 
@  10,15  to  15,65 

@  12,20  say  “Customer  code  "  +  Hci  +  "  Already  exists 

@  13,27  Say  "Press  any  key  to  return . " 

?  chr(7) 

Hci  =  space(4) 

Wait  "  ^ 

Case  -not.  found() 

Append  blank 
Replace  Cl  with  mci 
Replace  date  with  date{) 

Do  while  .T. 

Set  format  to  cust 
Read 

If  dcheck  =  "Y" 

Set  format  to 

Replace  fundoh  with  fund  -  expend 
Hci  =  space(4) 

Exit 

Else 


Chr(7) 

Endif 

Enddo 


Endcase 

Enddo 

Store  mtype  to  mtypel 
If  mtypel  <>  "  " 

Return 
Endif 
Close  all 
Release  all 
Return 

* - .*  EQf  addcust.prg  * 


! " 


A 


e  EDITASL 

A A A A A A A AA A AAAAA A A A AAA AA AA A AA AAAA AA AAA AA AA AAA A AA AA AAAA A AAA AA A AAA A A AA AAA 
AAAAAAAAA AAAA AAAA AA  EDITASL-PRG  A AAAAAAAAAAAAAAAAA AAAAAAAAAA AA 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


*  Hodule  name .  EDITASL. prg 

*  Author .  Park,  Taeyong 

*  Date . .  Aug  28.  1987 

*  Purpose . s  Edit(delete  or  change)  contents  of  entry 


*  of  ASL  file.  * 

*  Called  by . :  MANAGEFL.prg  * 

*  Modules  called  :  ASL.fmt  * 

Use  ASL  index  INASL 
Clear 

More  =  .T. 

Do  while  More 
Seek  STOCKN 
Do  case 

Case  STOCKN  =  "  " 

More  =  .F. 

Case  found() 

Set  format  to  EDITASL 
Edit  recnoO 
Set  format  to 

Store  "Y"  to  check 

@15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict 
Read 

If  check  =  "Y" 

Set  talk  on 
Pack 

Set  talk  off 
Stockn  =  space(16) 
more  =  .F. 

Endif 

Case  .NOT.  foundO 

@  15,30  Say  "No  such  STOCK  NUMBER  code  in  the  file  !" 

More  =  ,F. 

Stockn  =  space(16) 

Wait 

Endcase 

Enddo  (while  more) 

Close  all 
Release  all 
Return 

*  . *  Eof  EDITPBOP.prg  * . * 


f  EDITBAT 


***************** A**************************************************** 

******************  DEITBAT .PRG  ********************************** 

********************************************************************** 


*  Module  name. . . . 

*  Author . 

*  Date . 

*  Purpose . 

*  Called  by . 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local.. 


EDITBAT. prg 
Park,  Taeyong 
Aug  28.  1987 
Edit  Batch  file 
MANAGEFL.prg 
EDITBAT. fmt 

STOCKN, TODAY, MVNC 


•k 
k 
k 
k 
k 
k 
k 
k 
k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Use  Batch  index  SNCIBAT 

Clear 

More  =  .T. 

Do  while  More 

Store  space(16)  to  MVNC 

@  15,10  Say  "Enter  Voucher  number  if  you  know  :  "  get  mvnc 

Read 

Do  case 

Case  STOCKN  =  "  "  .AND.  Mvnc  =  "  " 

Clear 
Close  all 
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Return 

Case  stockn  #  "  "  .AND.  Mvnc  =  "  " 

Search  =  stockn 

Case  stockn  #  "  "  .AND.  Mvnc  #  "  " 

Search  =  stockn  upper  (mvnc) 

Case  stockn  =  "  "  .AND.  Mvnc  #  "  " 

S-^arch  =  upper  (Mvnc) 

Endcase 
Seek  search 
If  found() 

Set  format  to  EDITBAT 
Edit  recno() 

Set  format  to 

Store  "Y"  to  check 

@15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict  "!" 
Read 

If  check  =  "Y" 

Set  talk  on 
Pack 

Set  talk  off 
Stockn  =  space(16) 
more  =  .F. 

Endif 

Else 

@  15,10  Say  "No  such  STOCK  NUMBER  or  Voucher  Number  in  the  file  !" 
More  =  .F. 

Stockn  =  space(16) 

Wait 

Endif 

Enddo 

Close  databases 
Release  all 
Return 

* - -  —  - - -  —  .*  Eof  EDitbat.prg  —  -  —  - - * 


g.  EDITCUST 


EDITCUST  •  PRG  A*?>f*^i*r**:^)lr*^iA:*:<t?lr******i*f i*f  A****:^* 


Module  name .... 

Author . 

Date . 

Purpose . 

Called  by . 

Modules  called 
Variales  used. . 

Local. . 


EDITCUST. prg 
Park,  Taeyong 
Aug  28.  1987 

Edit  Customer  record  from  customer  file 
MANAGEFL. 

EDITCUST. 

MCI 


★ 

-k 

•k 

k 

k 

k 

k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


Use  CUSTOMER  index  CICUST 

Clear 

More  =  .T. 

Do  v/hile  More 
Seek  Mci 
Do  case 

Case  mci  =  "  " 

More  =  .F. 


Case  found() 

Set  format  to  EDITCUST 
Edit  recnoO 
Set  format  to 


Store  "Y"  to  check 

@15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict  "!" 


146 


If  check  =  "Y" 

Set  talk  on 
Pack 

Set  talk  off 
Mci  =  space(4) 
more  =  .F. 

Endif 

Case  .NOT.  found() 

@  15,35  Say  "No  such  customer  code  in  file  !' 
More  =  .F. 

Hci  =  space(4) 

Wait 


Endcase 

Enddo  ('«‘hile  more) 
Close  all 
Release  all 
Return 


■*  Eof  EDITcust.prg  *- 


h.  EDITMAST 


•k^’k^^’k-k^-k-kif^’k'k^^-kit^’k'k-k-k^'k-k-k'k^it'k-k'k'k-k'k'k-k-k'k-k-k-k'kiK-k'k’k-kiK-k-kii'k-kifk'k’k-kiK'k'k-k'k-k-k-k'kif 

K**x>r**************  EDITMAST  •  PRG  ****************)^*^*********7*r**** 


*  Module  name . . . . 

*  Author . 

*  Date . 

*  Purpose . 

*  Called  by . 

*  Modules  called 

*  Variales  used. . 

*  Local,. 


EDITMAST. prg 
Park,  Taeyong 
Aug  28.  1987 
Edit  master  file 
MANAGEFL.prg 
EDITMAST. fmt 

STOCKN,MCI 


******************  ****A**i****************Xt**yit**********)k******>lt****** 

Use  MASTER  index  SCTMAST 
Clear 

@  10,10  to  15,62 
@  11,30  Say  "Warning!" 

I?  13,15  Say  "This  process  is  not  allowed  to  every  person," 

0  14,15  Say  "  Enter  password  to  continue."  get  mpass  pict  "I!!!" 

Read 

If  pass  <>  mpass 
Close  all 
Return 
Endif 

Set  filter  to  SN=stockn  .AND.  ci=mci 
Clear 

@  10,10  Say  "Enter  the  transaction  type  :  "  get  mtype  Pict  "!!" 

Read 

More  =  .T. 

Do  while  More 
Seek  Mtype 
Do  case 

Case  STOCKN  =  "  " 

More  =  .F. 

Case  found() 

Set  format  to  EDITMAST 
Edit  recnoO 
Set  format  to 

Store  "Y"  to  check 

0  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict 
Read 

If  check  =  "Y" 

Set  talk  on 


Set  talk  off 
Mci  =  space(4) 

Stockn  =  space (16) 
more  =  .F. 

Endif 

Case  .NOT.  foundO 

@  15,35  Say  "No  such  STOCK  NUMBER  code  in  file  !" 
More  =  .F. 

Stockn  =  space(16) 

Wait 

Endcase 

Enddo  (while  more) 

Set  filter  to 
Close  all 
Release  all 
Return 

* . *  Eof  EDITMAST.prg  * . 


i.  EDITPROP 


**w:^********* ******  EDITPROP  .  PRG  ******************************* 

***************************************************^yt****************** 


*  Module  name . EDITPROP. prg  * 

*  Author . .  Park,  Taeyong  * 

*  Date . .  Aug  28.  1987  * 

*  Purpose .  Edit  property  file  * 

*  Called  by . .  MAMAGEFL.prg  * 

*  Modules  called  :  EDITPROP. fmt  * 

*  Variales  used. . :  * 

*  Public.!  * 

*  Local..!  STOCKN. MCI  * 


*********************************************************************** 


Use  PROPERTY  index  SNPROPER 
Clear 

More  =  .T. 

Do  while  More 
Seek  STOCKN 
Do  case 

Case  STOCKN  =  "  " 

More  =  .F. 

Case  found() 

Set  format  to  EDITPROP 
Edit  recnoO 
Set  format  to 

Store  "Y"  to  check 

@  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict 
Read 

If  check  =  "Y" 

Set  talk  on 
Pack 

Set  talk  off 
Mci  =  space(4) 

STOCKN=SPACE(16) 
more  =  .F. 

Endif 

Case  .NOT.  found() 

@  15,35  Say  "No  such  STOCK  NUMBER  code  in  file  !" 

More  =  .F. 

Mci  =  space(4) 

Wait 


Endcase 


Enddo  (while  more) 
Close  all 
Release  all 
Return 


•*  Eof  EDITPROP.prg  *- 


j  MANAGEQ 


MANAGEQ.  PRO  *****************K*K**-^K:r**:*.  *** 


kyfk-k-r-kkx-kkkn-kk'k'k-k-k-k-kk-kkk-kn-k-k-k-kkk-kkk-kk-k-k-kiK'k'kk'k-k-k-kkkk'k'kk-k-k-k-kkk-k-k'k'kkkn-kkkk 


Module  name . . . . 

Author . 

Date . 

Purpose . 

Called  by . 

Modules  called 
Variales  used. . 

Public . 
Local . . 


MANAGEQ . PRG 
Park,  Taevong 
OCT  28.  1987 

CONSULT  CONTENTS  OF  FILES 
MANAGE FL.prg 
SETUP . FRM 


STOCKN.MCI 

•kk-k-k-k-kkkkk-nkkkkk'k-k-kk-kkkkkkk-kkk'k-kkkickk-kkk-kkkkkkk-kk-kiK-k'k-kkk'k'k-kkk-k'k-k'k’kk-kkk-k 

Close  databases 
Clear 

Set  talk  off 
set  echo  off 
Use  property 

Index  on  Class  to  Clssprop 

Use  Property  index  snproper .Clssprop 

Select  B 

Use  ASL  index  inasl 
Select  A 

Set  relation  to  SN  into  B 


'Query  on  Stock  number" 


Stock  number" 

Class" 

All" 

"4.  Return  to  main  menu" 
"Enter  Option:  " 


title  = 
lIok="Y" 

Store  space(16)  to  stockn 
Store  "  "  to  Hclass.Hconf 
Do  while  .T. 

Clear 

(14,25  say  title 
@  8,15  Say  "Options" 

@  11,17  Say  "1.  -■  ' 

12.17  Say  "2. 

13.17  Say  "3. 

@  15,17  Say 
(?  17,15  Say  __ 

(?  2,1  to  23,75 
Store  ""  to  sel 
@  17,29  Get  sel 
i=0 

Do  while  i=0 
i=inkey( ) 

If  chr(i)$"1234" 

Exit 

Endif 

i=0 

Enddo 

@  17,29  Say  Chr(i) 

If  chr(i)=^4" 

Exit 
Endif 
Do  case 

Case  chr(i)="l" 

@  11,36  Say  "Enter  stock  number  "  , 
Get  Stockn  pict  "9999-99-999-9999" 
Read 

If  Stockn="  " 

?  Chr(7) 


1... . 


149 


Loop 

Endif 

Set  filter  to  Sn='&Stockn‘ 

St-  Order  to  1 
Do  setup 

Report  form  stockrpl 
Set  filter  to 
Case  chr(i)="2" 

@  12,36  Say  "Enter  Class  Number:"  Get  Mclass  pict  "9" 
d  13,38  Say  "0|  for  class  10" 

Read 

If  Mcl3ss="  " 

?  Chr(7) 

Loop 

Endif 

Set  filter  to  Class= ' &Mclass ' 

Set  Order  to  2 
Do  setup 

Report  form  stockrpl 
Set  filter  to 
Case  chr(i)="3" 

@  13,26  Say  "<-  Is  this  your  select(Y/N) Get  Hconf  pict  "!" 
Read 

If  Hconf="H" 

?  Chr(7) 

Loop 

Endif 

Set  Order  to  2 
Do  setup 

Report  form  stockrpl 
Othe rwise 
Loop 

Endcase 

If  Upper(nok)="y" 
set  console  on 
Set  print  off 
Set  Order  to  1 
Else 

0  24,17  Say  "Press  any  key  to  continue..." 

Wait'"' 

Endif 


Clear 

Enddo 

Close  databases 

Release  all 

Erase  clssprop.ndx 

Store  space(16)  to  stockn 

Clear 

Return 


* 


*  Eof  HANAGEQ.prg  * 


APPENDIX  F 
SCREEN  FORMAT 


1.  TRANSACT 
a,  BATCH 


Akt^kxkkkkx^^k****^  Module  nSme  Bstch.  fmt 


ra 

2, 

11 

@ 

3, 

47 

@ 

3, 

61 

@ 

5, 

3 

5, 

25 

.3 

6, 

8 

(a 

3, 

8 

@ 

8, 

53 

@ 

9, 

10 

(3 

12, 

18 

@ 

12, 

32 

@ 

14, 

13 

ra 

14, 

32 

(3 

16, 

18 

@ 

16, 

32 

@ 

16, 

39 

@ 

16, 

47 

@ 

16, 

56 

@ 

18, 

18 

@ 

18, 

32 

(3 

23, 

30 

(3 

1 , 

5 

(3 

4, 

4 

@ 

7  , 

5 

(3 

10, 

5 

1 

3, 

38 

K 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

GET 

SAY 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

SAY 

GET 


for  issue" 


Requset 
Today  . 
today 
Requested  From 
CUSTOMER->CDESC 
Send  To 


T|^|e  of  transaction  :_(Rp) 


The  150  Infantry  Division" 

--  _  -  ,---,  Request  No  :" 

IqNO  PICT  "9999! !-9999-9999" 

Request  for  Issue  to  Div  (  Customer's)' 

'Stock  Number  :" 

BATCH->SN  pict  "9999-99-999-9999" 

'Description  ;" 

PROPERTY- >NM 
'  Unit  :" 

PROPERTY->UNIT 
'Price  :" 

PROPERTY->UNITCOST 

'S" 

Suantity  i" 

->QTY 


SAY  "Is  this  record  correct  ?  "  get  batcheck  pict 


n  I  II 


TO  3, 
TO  20, 
TO  1 , 
TO  10, 
TO  9, 


40 

70 

69 

69 

38 


■*  Eof .batch. fmt  *- 


* 


b  MAST 


^k'kA'^'k'k-^'^-k'k-^-k'k'k-k'k'k'k  Modul®  nSITie  ♦  •  •  •  :  MdSt>£mt  ******^^*^^*^*5*r*i^:Acifc**^*^>k 
•k-k'k-k-k-k'k’k-k-kifk'k-k'k'k'k'k'k^'k'kiK'k'k’k^-k'k'k’k^’k'k'k-k^'k’k'k'ki^’k'kA'k'k^'k^'k’kiKifiKi^'kii'k'kiK'k'k’ki^'k’k'k'k'k 


@ 

2, 

9 

SAY 

@ 

3, 

43 

SAY 

@ 

3, 

56 

Say 

@ 

5, 

7 

SAY 

@ 

6, 

7 

SAY 

(3 

8, 

6 

SAY 

0 

8, 

43 

GET 

0 

9, 

6 

SAY 

0 

9, 

34 

SAY 

0 

9, 

50 

GET 

0 

12, 

19 

SAY 

0 

12, 

32 

GET 

0 

14, 

19 

SAY 

0 

14, 

32 

GET 

0 

16, 

34 

SAY 

0 

16, 

41 

GET 

0 

13, 

19 

SAY 

0 

18, 

32 

GET 

0 

18, 

50 

SAY 

mtitle 

"Today  is. . ." 

Today 

mhost  +  mcdescl 
"  "+mcust  +  medeseZ 

"Type  of  transaction  ;  Voucher  No 

VNl  PICTURE  "9999! ! -9999-9999" 

Mtypea 

"Request  Numbers" 

MREQNO  PICTURE  "9999 !! -9999-9999" 

"Stock  Number;" 

MASTER->SN  PICTURE  "9999-99-999-9999" 
"Description  :" 

PROPERTY->NM 
"Unit  :" 

PROPERTY->UNIT  FUNCTION  "!AAA"  PICTURE 
"Quantity  :" 

HASTER->QTY 
"Reusable?  :  " 


M 


"XXXX" 


@18,  62  GET  MASTER->Misc 

@20,  19  SAY  "Price 

@20,  32  GET  PROPERTY->UNITCOST 

@23,  30  SAY  "Is  this  record  correct  ?  "  get  zcheck  pict  "X" 


@ 

4, 

4 

TO 

21, 

71 

@ 

1 , 

6 

TO 

3, 

40 

@ 

7, 

5 

TO 

7, 

70 

@ 

10, 

5 

TO 

1C 

),  70 

@ 

8, 

32 

TO 

9, 

32 

*  Eof  Mast.fmt  * 


c.  TLRNIN 

■k-k-k'k'k'k'k'k'k'k-k-k-k'k'k-k'k'k'k-k'k'k'k’k'k'k'k'k-kifk'k'k'k'k'k'k'k^'k'k'k'k'k'k-k'kifk'k'k'k'k'k-k'^'k'k'k'k-k'k'k'k'k'kiK'kif 

K*K*xjr*-^*****  Screen  format  for  Turnin  prgram  *********************>'* 

@  2,  11  SAY  "Request  for  turn-in" 

@  3,  46  SAY  "Today " 

@  3,  58  SAY  Today 

@5,  6  SAY  "From  :" 

@  5,  13  SAY  MCDESCl 

@  6,  8  SAY  "To  :" 

@  6,  13  SAY  MCDESC2 

@8,  6  SAY  "Type  of  transaction  :  (TD)  " 

@  9,  10  SAY  "Request  for  turn-in  Request  No 

@  9,  52  GET  BATCH->REQNO  PICTURE  "9999 !! -9999-9999" 

@11,  21  SAY  "Stock  number  :" 

@11,  37  GET  BATCH->SN  PICTURE  "9999-99-999-9999" 

@13,  21  SAY  "Description 
@  13,  37  GET  PROPERTY- >NM 
@15,  16  SAY  "Unit 

@15,  25  GET  PROPERTY->UNIT  PICTURE  "!XXX" 

@15,  37  SAY  "Reuseable? 

@  15,  51  GET  BATCH->MISC 
@17,  16  SAY  "Price:" 

@17,  25  GET  PROPERTY->UNITCOST 
@17,  37  SAY  "Quantity 
@17,  51  GET  BATCH->QTY 

@20,  34  SAY  "Is  this  record  correct  ?"  Get  Zcheck  pict  "!" 


@ 

1, 

5 

TO 

3, 

40 

ra 

4, 

4 

TO 

19, 

70 

@ 

7, 

5 

TO 

7, 

69 

(3 

4, 

36 

TO 

4, 

36 

@ 

4, 

37 

TO 

4, 

37 

@ 

10, 

5 

TO 

10, 

69 

@ 

8, 

37 

TO 

9, 

37 

*  Eof  TURNIN. fmt  * 


d  CANCMAST 

********************************************************************** 

******************  Module  name..,.:  CANCMAST. FMT  ********************* 
********************************************************************** 

@2,  9  SAY  "Cancel  Request  for  issue  item" 

@  3,  44  SAY  "Today  . . "+Dtoc(date( ) )+" ("+Zulu+" ) " 

@  6,  25  SAY  "Stock  number 

@  6,  40  SAY  MASTER->SN 

@  8,  25  SAY  "Customer  Code:" 

@  8,  40  SAY  MASTER->CI 

@10,  24  SAY  "Request  number;" 

@10,  40  SAY  MASTER->REQNO 
@13,  13  SAY  "Quantity 
@13,  24  SAY  MASTER->QTY 
@  13,  33  SAY  "Price  :" 

@13,  41  SAY  MASTER->UNITCOST 


@13,  51  SAY  "Date  :(" 

@13,  58  SAY  MASTER->DATE 
@13,  62  SAY  ")" 

@17,  14  SAY  "Is  this  record  what  you  want  to  cancel? (Y/N) "  ; 
Get  checks  pict  " ! " 

@  1,  6  TO  3,  40 

@4,  5  TO  15,  70 
@  16,  5  TO  18,  70 

^ . *  Eof  CANCMAST.fmt  * . 


2.  MANAGEFL 
a.  ASL 

x*:w:W'W*w**:^:^***'A;***  Modulfi  flcirnC  ,  •  •  •  I  Asl.fmt.  ***^*******w*****'****‘***’** 


@ 

2, 

8 

SAY 

@ 

3, 

45 

SAY 

@ 

6, 

20 

SAY 

@ 

6, 

44 

GET 

@ 

9, 

20 

SAY 

@ 

9, 

44 

GET 

@ 

11, 

20 

SAY 

@ 

11, 

44 

GET 

@ 

13, 

20 

SAY 

@ 

13, 

44 

GET 

@ 

16, 

20 

SAY 

@ 

16, 

44 

GET 

@ 

16, 

50 

SAY 

@ 

18, 

18 

SAY 

@ 

18, 

44 

GET 

@ 

23, 

35 

SAY 

@ 

1, 

5 

TO 

@ 

A, 

4, 

4 

TO  : 

"Authorized  storage  list  file" 

"Today  is  . "  get  today 

"Stock  number  :" 

Stockn  PICTURE  "9999-99-999-9999 
"Reorder  Point  :" 

ASL->ROP 

"Safety  Level  :" 

ASL->SL 

"Requisition  Objective  :" 

ASL->RO 

"Order  Shipping  Time  :" 

ASL->OST 

"days" 

"Resource  control  number  :" 
ASL->RCN  PICTURE  "9999" 

"  Is  this  record  correct  ?  :  "  get 
3,  40 


get  dcheck  pict 


■*  Eof.Asl.fmt  *■ 


b.  CUST 

*****  Cust.fmt  (CUSTOMER  file  screen  format  called  by  ADDCUST )******** 

A  A  A  A  AA  A  AA*  A  A  A  AA^  AAAA  A  A  A  AA  A  AAAAA  AAAAA  AA  A  AA  A  A  A  AAA  A  A  AAA^A  A  AAA  A  AAI?  AAAAAAAA 

@  2,  13  SAY  "Customer  File" 

@  3,  43  SAY  "Today  is  . " 

@  3,  62  SAY  CUSTOMER- >DATE 

@  6,  13  SAY  "Customer  Code" 

@  6,  23  SAY  CUSTOMER->CI 

@  6,  47  SAY  "Priority" 

@  6,  57  GET  CUSTOMER- >PRIORITY 

@  8,  22  SAY  "Name" 

@  8,  28  GET  CUSTOMER->CDESC 

@10,  19  SAY  "Address" 

@10,  28  GET  CUSTOMER- >ADDRESS  FUNCTION  "S30"; 

PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
@12,  23  GET  CUSTOMER- >ZIPC0DE 

@12,  37  SAY  "Zip  code" 

@15,  18  SAY  "Fund  :" 

@15,  28  GET  CUSTOMER- > FUND  PICTURE  "9999999.99" 

@  15,  40  SAY  "S  Allowed" 

@17,  28  GET  CUSTOHER->EXPEND  PICTURE  "9999999.99" 

@17,  40  SAY  "S  Expediture" 

@  18,  22  SAY  " . " 


@23,  35  SAY  "Is  this  record  correct  ?  "  get  dcheck  pict 
@  1,  6  TO  3,  40 
@  4,  5  TO  20,  70 

. *  Eof  CUST.fmt  * . 


;  PROP 


*****:***7r*x***x*  Module  name....:  Proo.fmt  ***** 

X  4r  *  r  X 

X  X  XX 

X  X  X  X 

xxx*Axyc*:^;k7kAx:Af7k3k3k*x*'^^3kjkxxx*AA:^*3k7k:k 

@ 

2, 

12 

SAY 

"Property  Book  file" 

@ 

3, 

44 

SAY 

"Today  . " 

-'a 

3, 

62 

SAY 

Today 

@ 

6, 

22 

SAY 

"Stock  number  :" 

•z 

6  , 

38 

GET 

Stockn  PICTURE  "9999-99-999-9999 

(3 

7  , 

22 

SAY 

"  Serial  MO 

ra 

7  , 

38 

GET 

FROPERTy->SERIALNO 

@ 

8, 

38 

GET 

PROPERTY- >NM 

@ 

8, 

22 

SAY 

"  Description  ;" 

ra 

10, 

25 

SAY 

"  Unit 

a 

10, 

33 

GET 

PROPERTY->UNIT 

\ 

10, 

46 

SAY 

"Class  :" 

10, 

54 

GET 

PROPERTY- >CLASS  PICTURE  "99" 

@ 

13, 

25 

SAY 

"  On  hand  :" 

@ 

13, 

38 

GET 

PROPERTY- >ONHAND 

@ 

15, 

25 

SAY 

"  Price  :" 

@ 

15, 

38 

GET 

PROPERTY->UNITCOST 

@ 

15, 

47 

SAY 

@ 

15, 

25 

SAY 

@ 

18, 

20 

SAY 

"Is  this  combat  essential  item  ?  : 

@ 

18, 

54 

GET 

PROPERTY- >ESSENCE 

@ 

23, 

35 

SAY 

"Is  this  record  correct  ?  ;  "  get 

@ 

1 , 

5 

TO 

3,  40 

@ 

4, 

4 

TO  20,  70 

■*  Eof.  Prop.fmt  ** 


d  EDITBAT 


*****  Editbat.fmt  (BATCH  file  scrreen  format  called  by  EDITBAT)  ******* 

A  :*r  ★  ★  :Ar  3*r  ★  ★  3*:  ★  ★  ?kf  ★  ★  K  *  7^  ★  3*r  A  ★  *  ★  ★  *  ★  ★  A  ★  A  A  ★  9it  K  ★  ★  7k  X  ★  tk  ^  1^:  A 


@ 

2, 

7 

SAY 

@ 

3, 

46 

SAY 

@ 

3, 

61 

GET 

@ 

5, 

23 

SAY 

@ 

5, 

40 

GET 

@ 

7, 

23 

SAY 

@ 

7, 

40 

GET 

@ 

9, 

23 

SAY 

@ 

9, 

40 

GET 

@ 

11 , 

14 

SAY 

@ 

11 , 

35 

GET 

@ 

11, 

50 

SAY 

@ 

11, 

60 

GET 

@ 

13, 

14 

SAY 

@ 

13, 

35 

GET 

@ 

13, 

50 

SAY 

@ 

13, 

60 

GET 

@ 

13, 

69 

SAY 

@ 

14, 

35 

SAY 

@ 

17, 

7 

SAY 

@ 

18, 

7 

SAY 

@ 

19, 

13 

SAY 

End  , 

Abandon 

@ 

1 , 

5 

TO 

"Edit(change  or  delete)  Batch  file" 

"Today . " 

BATCH- > DATE 
"  Stock  number  ;" 

BATCH->SN 
"Voucher  number  ;" 

BATCH- >REQNO 
"  Customer  Code  :" 

BATCH->CI 

"Type  of  action  ;" 

BATCH- >TYPE 
"  Posted  :" 

BATCH->POSTED 
"  Quantity  ;" 

BATCH- >gTY 
"Unitcost  :" 

BATCH->UNITCOST 

"S" 

"Date  ;  "+Dtoc(BATCH->DATE) 

"(Insert  mode)  :  Ins  (Record)  Next  :  PgDn" 

"(Delete)  Character  ;Del  Previous  :  PgUp" 

"Field;  ctrl+Y  Record:ctrl+  U  (Done/Save)  :; 

Esc" 

3,  40 


154 


*  Eof  EDITBAT.fmt  * 


@4,  5  TO  15,  70 

@16,  5  TO  20,  70 

@  17,  35  TO  19,  35 


e.  EDITCUST 


■k-k-k'k-k'k'k'k-k’k-k-k'k-k-k'k’k'k-kick-k'k'k^'ki^'k-k-k'kitA^'k-k-k^'k^'k-kAA’kick-k^-kA-k'k'k'k'k'kick'k-k'k'k'k-k-k'k-k’kiK-k 

Editmast .  fmt  (MASTER  file  screen  format  called  by  EDITMAST)  ***** 

■k^^’k-k^-k-k-kyck^-k’K'^^yck^-k'^'k'k'n'knn-k'k'k'kn'kk'kn-k^A'k^-k'k'k^'k'k'k'k'k^'k'kifkn'k^if'k'k^-k'k'kn^'kiK-k'k 

file" 


@ 

@ 

@ 

@ 

@ 

@ 

@ 

@ 

@ 

@ 

@ 


2, 

3, 

3, 

5, 

5, 

7, 

7  , 

7, 

7  , 

9, 

9, 

@  10, 

@  10, 

@  12, 

@  12, 

@  13, 

@  13, 

@  13, 

@  13, 

@  14, 

@  14, 

@  17, 

@  18, 

@  19, 
ctrl+End 
@1,  5 

@4,5 
@16,  5 

@  17,  35 


10 

47 

61 

20 

36 

14 

31 

43 

53 

13 

31 

31 

50 

12 

24 

12 

24 

30 

58 

29 

36 

7 

7 

13 


SAY  "Edit/Change  Master 

SAY  "Today . " 

SAY  dtoc(5ate()) 

SAY  "Stock  Number 

HASTER->SM  PICTURE 
"Customer  code 
MASTER- > Cl 
"Action  Type 
nASTER->TYPE 
"Request  Humber 
MASTER->VN  PICTURE 


GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

GET 

SAY 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

SAY 

SAY 


"9999-99-999-9999' 


•9999! 1-9999-9999' 


>REQNO 

r's^ 


MASTER- 
"Custome 
"Quantity 
MASTER->QTY 


PICTURE  "9999!  .'-9999-9999' 


Price 

MASTER->UNITCOST 
"S  Reusable  ? 

MASTER->MISC 
"Date  !" 

MASTER- >DATE 
Insert  mode)  :  Ins 
Delete)  Character  :Del 
"Field:ctrl+Y  Record:  ctrl+U 
Abandon  :Esc" 

TO  3,  40 
TO  15,  70 
TO  20,  70 
TO  19,  35 

. *  Eof  EDITMAST. fmt  *■ 


(Record)  Next 
Previous 
(Done/Save)  i 


PgDn" 

PgUp" 


r.  EDITASL 


**********  Editasl.fmt  (ASL  screen  format  called  by  EDITASL)*********** 

"Edit  Authorized  Storage  List  file" 

"Today  . " 

DTOCtDATEO) 

"Stock  number 
ASL->SN 

"Reorder  Point  :" 

ASL->ROP 


@ 

2, 

6 

SAY 

@ 

3, 

47 

SAY 

@ 

3, 

60 

SAY 

@ 

5, 

20 

SAY 

@ 

5, 

36 

GET 

@ 

8, 

10 

SAY 

@ 

8, 

26 

GET 

@ 

8, 

38 

SAY 

@ 

8, 

60 

GET 

@ 

8, 

64 

SAY 

@ 

10, 

11 

SAY 

@ 

10, 

26 

GET 

@ 

10, 

38 

SAY 

@ 

10, 

60 

GET 

@ 

12, 

10 

SAY 

@ 

12, 

34 

GET 

@ 

14, 

23 

SAY 

@ 

14, 

50 

GET 

@ 

17, 

7 

SAY 

ASL->OST 
days" 


Level 


ASL 

'  Date  :' 

ASL->DATE 

'Requisition  Objective 
ASL->RO 


ASL->RCN 


Ins 


(Record)  Next  .*  PgDn" 
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@  18, 
@  19, 
@  1, 
@  4, 
(3  16, 
(3  17, 


7 

13 

5 

5 

5 

35 


SAY  "(Delete) 
SAY  "Field: 

TO  3 ,  40 
TO  15,  70 
TO  20,  70 
TO  19,  35 


Character 

Record: 


:Del 


Previous 
(Done/Save)  ; 


PgUp" 

End  Abandon  :Esc 


^ . *  Eof  EDITASL.fmt  *- 


g  EDITPROP 

■k-k'k-k'k-k-k-k-k^-k-k-k-k'k-k-k'k-k'k'k'k-kir-k-k-k-k-k^-k^'ki^'A-kA-k'k-k^'k-k^k-k-k'k-k'k^if^-k'k'k^'k'^'k-k-k'k-k'k'k'k'k-k-k-k-k 

***  Editprop.fmt  (PROPERTY  file  screen  format  called  by  EDITPROP ) ****** 

•Kn^-kmr^-kn-k-k-K'k-k-k-k^'K-kif^'k-k-k-k'k-k-kn^'k-k^-k-k^k-k-k-k^-kn-k^-k'k'kniK-k’k'k-k^:k-k'k-k^-k-k-k'kn-k-k-k^-k'k 

(3  2,  12  SAY  "Edit  property  file" 

0  3,  46  SAY  "Today  . " 

?  3,  61  SAY  DTOCtTODAY) 

(3  5,  7  SAY  "Stock  Number  :" 

@  5,  23  GET  PROPERTY->SM 

(3  5,  45  SAY  "Serial  No  :" 

@  5,  57  GET  PROPERTY->SERIALNO 

@7,  7  SAY  "Nomenclature  :" 

@  7,  23  GET  PROPERTY->NM 

(3  9,  15  SAY  "Unit  :" 

(3  9,  23  GET  PROPERTY->UNIT 

@  9,  30  SAY  "Essential  item?  :" 

0  9,  43  GET  PROPERTY->ESSENCE 

0  9,  54  SAY  "Class  :" 

0  9,  62  GET  PROPERTY->CLASS 

0  12,  14  SAY  "Onhand  :" 

0  12,  23  GET  PROPERTY- >ONHAND 

0  12,  35  SAY  "  Price  :" 

0  12,  49  GET  PROPERTY->UNITCOST 

0  12,  59  SAY  "$" 

0  14,  30  SAY  "  Total  Value  :" 

0  14,  49  GET  PROPERTY- >TVALUE 

0  14,  59  SAY  "$" 

@17,  7  SAY  "(Insert  mode)  :  Ins  (Record)  Next  :  PgDn" 

0  18,  7  SAY  "(Delete)  Character  :Del  Previous  :  PgUp" 

0  19,  13  SAY  "Field:  ctrl+Y  Record:  ctrl+U  (Done/Save)  :  ; 

ctrl+End  Abandon  :Esc" 

0  1,  5  TO  3,  40 

04,  5  TO  15,  70 

0  16,  5  TO  20,  70 

0  17,  35  TO  19,  35 

. *Eof  EDITPROP.fmt  * . * 


h.  EDITCUST 


******  Editcust.fmt  (CUSTOMER  file  screen  called  by  EDITCUST)********** 

-k'k’k-k-k'k'k-k-k'k'k'k'k^'k'k'k-k'k'kn'k’k'k'k'k'k-kiK'k-k'kiK-k'k^'k-k^'k^-k'k'k'k'k'k'k'kiK^'k'k'k'k'k-k’k^nnik-k'k'k'kiK'k^iKi^ 


0 

2, 

9 

SAY 

"Edit  or  Delete  CUSTOMER  file" 

0 

3, 

46 

SAY 

"Today 

0 

3, 

60 

SAY 

TODAY 

0 

5, 

9 

SAY 

"Customer  :" 

0 

5, 

20 

GET 

CUSTOMER->CI 

0 

5, 

25 

SAY 

"code  Priority 

0 

5, 

48 

GET 

CUSTOMER->PR10RITy 

0 

7, 

20 

GET 

CUSTOMER->CDESC 

0 

7 , 

51 

SAY 

"Description" 

0 

8, 

20 

GET 

CUSTOMER->ADDRESS  FUNCTION  "S30"; 

PICTURE  " 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXX 

0 

8, 

51 

SAY 

"Address" 

0 

9, 

20 

GET 

CUSTOHER->ZIPCODE 

0  9,  51  SAY  "Zipcode 


0 

11, 

9 

SAY 

"Fund  allwed  :" 

0 

11, 

23 

GET 

CUSTOHER->FUND 

0 

12, 

23 

GET 

CUSTOMER- > EXPEND 

0 

12, 

36 

SAY 

"Expend" 

0 

13, 

23 

GET 

CUSTOMER- >FUND0H 

0 

13, 

36 

SAY 

"On  hand" 

0 

14, 

33 

SAY 

"Last  edit  date  :" 

0 

14, 

51 

GET 

CUSTOMER- >DATE 

0 

17, 

7 

SAY 

"(Insert  mode)  :  Ins 

(Record)  Next 

:  PgDn 

0 

IS, 

7 

SAY 

"(Delete)  Character  :Del 

Previous 

:_PgUp 

0 

19, 

13 

SAY 

"Field:ctrl+  Y  Record:ctrl+  U 

( Done/Save ) 

ctr i+End 

Abandon  -.Esc" 

0 

1, 

5 

TO 

3,  40 

0 

4, 

5 

TO  15,  70 

1"% 

16, 

5 

TO  20,  70 

17, 

35 

TO  19,  35 

*  Eof  EDITCUST.fmt  * . * 


3.  ANALYSIS 


a  EOQ 

*********************************************************************** 
Module  name _ :  EOO.fmt  **************************** 

*******************K*****************S*************y[j*^***^^^*^^yjyj^jl^^^^^ 

Clear 

I  2,  17  SAY  "I  N  F  0  R  M  A  T  I  0  N  for  A  N  A  L  Y  S 
@  5,  12  SAY  "You  selected  stock  number 
@  5,  40  SAY  PROPERTY->SN 

06,  17  SAY  "("+Rtrim(PROPERTY->NM)+",  "+"Unit:"- 
+Rtrim(PROPERTY->UNIT)+'' ,  Class  :  "+PROPERTY->CLASS+'' ) " 

■  "■►I-‘''i"(«r(prop.rty->unitcost)); 

0_1O,  21  ^SAY^I'Annual  Demand(R)  :  "+Ltrim(str  (Rdem) )  +  "  " 


I  S' 


'  7  .  . ^111  \  a  wt  \c\udu  J  it  ; 

+Rt r im (proper ty->unit)+"/year" 

"Lead  time(OST)  in  Month  :  "+Ltrim(str(mLeadt) )  ; 

$/order" 


+"  Month(s)" 

0  14,  21  SAY 
40 
11 
40 
5 

14 
40 
55 
16 
40 
55 
5 

45 

15 
45 
5 

13 


0  14, 
0  15. 
0  15, 
0  16, 
0  17, 
0  17, 
0  17, 
0  18, 
0  18, 
0  18, 
0  21, 
0  21, 
0  22, 
0  22, 
0  24, 
0  1, 
0  4, 
0  20, 


$/unit' 


%" 


—  Ordering  cost{C)  ; 

GET  Orderc  pict  "9999.99" 

SAY  "Holding  cost  unit  per  year 
Get  Frate  pict  "99.99" 

SAY  "(Select  one  of  these)" 

SAY  "Stockout  cost(If  Known)  i 
GET  Scost  pict  "9999.99" 

Say  "Select?"  get  CSC  pict 
SAY  "Service  Level  in  year  .• 

GET  Servl  pict  "99.9999" 

SAY  "Select?"  get  CSL  pict  "!" 

SAY  ""+title+"r  Reorder  point 
SAY  "Safety  Level  Msl 
SAY  "Requisition  objective  :"+  Mro 
SAY  "Lead  Time  ;  "+Most 

SAY  space(50-Len(Ctitie))+(Ctitle)  get  check  pict 
TO  3,  61  DOUBLE 
TO  19,  74  DOUBLE 
TO  23,  74  DOUBLE 

. *  Eof  EO(2.fmt  * . . 


+Mrop 
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